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This book is intended for persons who want to learn computer programming using 
the RPG II language. The book is designed to be used by a person with no previous 
knowledge of computers and programming, or by a person who already knows a 
programming language but wants to learn about RPG II. 


The first chapter describes, in general terms, how a computer operates and the things 
a programmer must do to make the computer work. The information presented should 
answer such questions as: 


@ What are the parts of a computer? 

© What is a computer program? 

@ What is a programming language? 

@ What is an RPG II program? 

@ How is an RPG II program run on a computer? | 

The second chapter describes the RPG II program cycle and the RPG II specifications a 
programmer must write to do a particular task. The material in this chapter is arranged 
to provide a gradual development of concepts, proceeding from the simple to the more 

complex. Thus, it is important to read the material in sequence. Sample jobs are used 


to illustrate the concepts presented. 


The third chapter explains an RPG II programmer’s job more fully. It shows, by means 
of a sample job, the things you must do from the start of a job to its completion. 


After reading this book, the reader should not expect to be able to write complex RPG II 
programs. However, he should have gained enough background knowledge so that he’ 
can readily learn more detailed information—either from reference manuals, classes, or 
IBM personnel—which is required for writing programs for his computer. . 
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Chapter 1. Basic Computer and Programming Concepts 


PARTS OF A COMPUTER 


Computers differ widely in appearance, usually consisting of several connected units. 
Regardless of their size or shape, however, all computers have common features. 


Computers operate electronically. If you were to look inside the units of a computer, you 
would see thousands of circuits and wires. Fortunately, you don’t have to understand 

the purpose of each circuit or wire. As a programmer, all you need to know are the 
purposes of the main parts of the computer: the input devices, the output devices, and 
the processing unit. Note that some devices are used for both input and output. 


Input Devices 


Data you give a computer to work with is called input. The device used for getting that 
data into the computer is called an input device. Several kinds of input devices are used: 
card readers, disk units, and keyboards. Card readers, of course read cards containing 
data in the form of punched holes; disk units read data recorded in the form of magnetic 
dots on disks; keyboards, which operate like a typewriter, transfer data directly into the 
computer. . 


Output Devices 


Data produced by a computer is called output. The device that produces the output is 
called an output device, Several kinds of output devices are used: card punches, printers, 
and disk units. Card punches place data in cards in the form of holes; printers print data 
on paper; disk units record data in the form of magnetic dots on disk. 


Processing Unit 


The main part of a computer is the processing unit: The processing unit can be divided into 
three sections—storage, control, and arithmetic/logic—according to the special function 
each performs. 


Storage 


Storage is the computer’s memory area. This area is divided into many storage positions 
which the computer uses to electronically store information. The actual number of 
positions in storage depends upon the size of the storage unit. Each storage position has an 
identifying number called an address. 


A storage address serves the same purpose as a house address. Information is sent to and 
from these locations. The information can be easily retrieved using the address where 
the information is stored. 


Arithmetic/Logic 


Calculations (such as add, subtract, multiply, and divide) are performed in the arithmetic/ 
logic section. When your instructions tell the computer to do an operation such as add, 
the information to be added is transferred from storage to the arithmetic/logic section. 
The operation is then performed and the result is sent back to storage. 


Control 


The control section is the computer’s decision maker. It retrieves instructions from 
storage, determines what has to be done, and directs other units or devices to perform 
the required operations. 


PROGRAMS AND PROGRAMMING LANGUAGES 


Computers do only what you tell them. When you give a computer instructions, however, 
it might seem as though the computer requires more than you would need to do the same 
job. But remember, a computer cannot think: it requires explicit instructions, even for 
those things you would do almost without thinking. 


When you are to do a job yourself, you need three basic things: 

e@ Information to work with (input). 

° Instructions telling you how to work sith (process) the information. 
e Additional instructions describing the expected results (output). 


In computer terms, input is what you put into the computer, processing is what the 
computer does with the input, and output is the result of processing. Every job you 
run on a computer has these three parts. You write instructions to describe what you 
want the computer to do with each part. These instructions are called a program. 


To communicate with the computer, you must use the computer’s language, or one that 
can be translated into that language. The computer’s language is called machine language. — 
It consists of letters, numbers, and symbols that, when properly arranged, have a specific 
meaning to the computer and, when interpreted by the pcomputer: cause it to perform a 
desired function. 


Since machine language is so very different from our own language, it is extremely diffi- 
cult to use it to write a program. For this reason, programming languages have been 
created. A programming language allows the programmer to use familiar words and 
symbols to write instructions. 


The RPG II programming language is composed of letters, numbers, and symbols which 
you put together to form an instruction (express a thought). When creating instructions 
in the RPG II language, you must follow certain rules just as you would when constructing 
a sentence in English. You will learn about these rules in the second part of this manual. 


The set of instructions you write is called a source program. The source program is trans- 
lated by the computer, resulting ina machine language program called the object program. 
It is the object program that you use to do a job. In fact, you can use it over and over 

‘to do the same job. 


Source Programs 


The instructions you write for any program must describe the input, processing, and 
output requirements of the job. For example, one instruction might direct the computer 
to read a punched card, another might specify the adding of two numbers, and another 
may tell the computer to print a line on the printer. Since all jobs are not the same, you 
provide a ayiereat set of instructions (program) for each job. 


To write the instructions, you fill out RPG II specification sheets (see Figure 1). These 
sheets have been specially designed to help you write instructions according to the rules 
of the RPG II language. The act of writing instructions on these sheets is called coding; 
the entries you make on the sheets are called specifications. 
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Figure 1. RPG II Specification Sheets 
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To describe the input, processing, and output requirements of your job, you supply 
different information on each sheet. For example, you have to describe what your 

input data is like and specify the device (such as a card reader or a disk unit) that will 
read it. You also have to describe how the input data is to be processed. This includes 
specifying what type of operations (add, subtract, etc.) must be performed upon the 
data. Finally you specify what kind of output you want (printed report; punched cards), 
what information must be included in the output, how that information should be 
arranged, and which device will produce the output. 


After you’ve coded the specifications sheets, the next step is to get the coded information 
into the computer. The computer can’t read the coded sheets, so you must put the 
specifications into a form the computer can read. Depending on your system, you could 
enter the specifications on punched cards or through a keyboard. 


Source Programs to Object Programs 





SUMMARY f§ 


As we said earlier, the computer understands only machine language. It cannot use a 
programming language like RPG II directly. Any program you write in RPG II must 
be translated into machine language. The translator is a computer program called a 
compiler. The RPG II Compiler program is available from IBM. 


The compiler translates your RPG II specifications (source program) into machine — 
language (object program). The translating it does is called compilation. Essentially, 


the compiler performs three functions during compilation: 


1. Determines what machine instructions are necessary for the computer to perform 
the job described by your RPG II specifications. 


2. Translates your RPG II specifications into a machine language program. 


3. Assigns storage locations to program instructions and data. 





(1) Determine the requirements of your job. 
Define the input and required output. Also 
decide what processing must be done in order 
to get the proper results. 










Output-Format 


(2) Write the source program by describing your 
job on the RPG II specification sheets. 
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G3) Punch the specifications on cards. 
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(4) Compile the object program. Place the 
RPG I! Compiler and the source deck 
(punched specification cards) into the 
computer. At the end of the run, a machine 
language program (object program) will be 
punched on blank cards. 





Source 
Program 
Deck 


Input Processing Output 


Object . 
Program { 
Deck 
Printed 
- Report 
6) Execute the job. Place the object program 


deck and the data cards into the computer. 
At the end of the run, output, such as a 
printed report, is produced. 





Chapter 2. RPG II Programming Language 


RPG II Program Cycle 


When you do any job, you must do it in a particular order. The computer must also 
do its job in a particular order. This logical order for the computer program is supplied 
by the RPG II Compiler. 


The logic the compiler supplies is called a program cycle (see Figure 2). The object program 
goes through this cycle of operations every time a record is processed. Depending on your 
specifications, the object program may or may not use a particular operation in the 

cycle. However, the program still goes through the complete program cycle every time. 
Since one program cycle is needed for each record read, many program cycles are required 
for every job. 


START 





Note: The program cycle shown gives the 
general order of the operations. There may 
be minor variations between this cycle and 


the detailed cycle discussed in the reference 
manual applicable to your system. 


You do not need 
to memorize the 
program cycle. 
The cycle is only 
shown at this 
time to give you 
an idea of the 
cycle of the 
operations. The 
operations will 
be discussed in 
greater detail 
later. 


Figure 2. Program Cycle 
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It is important that you, the programmer, know the order of the operations in the RPG IT 
program cycle. This enables you to write specifications that will make correct use of | 
the cycle. By knowing the order in which the operations in the cycle are performed, you 
can organize your program correctly. 


In this chapter, the operations in the RPG II program cycle are explained a few at a 
time. You will learn: 


@ Which operations are used for a particular function. 


@ Which RPG II specifications you must write to use the function. 


Data Processing Terms and Programming Aids 


In the discussion of RPG II, you will find reference to data processing terms and 
programming aids, which are described in the following illustrations. 
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There are many different Record Layout Forms; one for disk, others for 80-column cards, 
96-column cards, and tape. The form shown above is the 96 Column Card Multiple Layout 
Form. 
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Writing Specifications For Input And Output Operations 


One of the simplest jobs you can do on a computer is read information from an input 
record, such as a card, then put that same information out, such as in the form of a 
printed report. No calculations are done, 


PROGRAM CYCLE OPERATIONS 


To do this simple job, the computer uses only the three most basic operations in the 
RPG II program cycle. Figure 3 shows these operations. 


Notice that two operations are concerned with the basic requirements of a job: input 
(read a record) and output (detail output). The third operation is the movement of 
data inside the computer. 


START 









Perform detail 
output 
operations. 







Move data from record selected at 
beginning of cycle into processing area. 





Read a record. 


Figure 3. Three Basic Operations in the RPG II Program Cycle 
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Data read by an input device must be transferred to the computer’s processing unit 
before it can be used.. Moving data is a mandatory operation done for every job. Because 
this operation is mandatory and is done exactly the same for every job, the compiler 
automatically supplies instructions to do it. | 


When the program is executed, the program cycle is repeated over and over. All three 
operations are used for every record in the input file. The term detail output, in the 

cycle operation, means that the specified output operations are performed for every input 
record. 


It may seem strange that detail output comes before a record is read. This occurs, however, 
so that headings can be printed on a report. Ifa job (such as this one) does not print 
headings, no information is printed during the first cycle. 


To make proper use of these cycle operations, your specifications must describe the records 
in the input file and specify how the output records should be created. You must also 
indicate what devices are used in the job. 


DESCRIBING THE FILES 


The File Description sheet is used to describe all the files used by your program. This 
information includes the name of the file, the device used with the file, and how the file is 
to be used. You fill out the indicated columns on the bottom half of the sheet: . 
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You must describe, on a separate line, every file used in your job. Many simple jobs 
require only one input and one output file. In the first jobs we discuss, therefore, we will 
use only one input and one output file. 


File Names 
Every file used in a job must be named. The name provides you and the compiler a means 
of identifying the file. During compilation, the compiler associates the file name with 
other characteristics of the file. Thus, you can refer to that file by name throughout your 
program and the compiler knows exactly which file you are referring to. 
The compiler, however, recognizes file names only if they conform to these rules: 
e A file name must be 1-8 characters long. 
@ The first character of a file name must be alphabetic. (The letters A-Z and the @, 
$ and #signs are considered alphabetic characters.) The remaining characters in the 
name can be either alphabetic or numeric. 
e Blanks must not appear between characters in the file name. 
@ No two files used in the same program can have the same name. (Because some 
RPG II Compilers use only the first seven letters of an 8-letter file name, be certain, 
when using these systems, to make the first seven letters unique; for example, 


TRANSACT and TRANFILE, not TRANFILA and TRANFILB.) 


@ The file name must begin in column 7 on the specification sheet. 
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Filename 





Form Type 
Sequence 
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«— Valid filename. 
«— Invalid filename. Name must start in column 7. 
<—Invalid filename. A blank must not be used between letters. © 
~<— Valid filename. 
~— Valid filename. 
~— Invalid filename. The first character of the name must be 
an alphabetic character. 






It is a good practice to assign meaningful file names. Meaningful names indicate some- 
thing about the file, such as the type of records in the file or the use of the file. Because 
file names can be no longer than eight characters, abbreviations may be necessary. But 
these too can be meaningful. For example, the abbreviation CUSTCHG might be 
assigned to an input file consisting of records for all customers having charge accounts. 


Device Designation 


You must also specify which devices your job will use (card reader/punch; disk; key- 
board; printer; data recorder). The ones you use, of course, depend upon the system 
you have, the devices you have, and your job. 


To indicate the device used for the file you named, enter the RPG II code name for 
that device in columns 40-46. The name must begin in column 40. 


Note: In the examples in this manual, you will see device names or abbreviations of device names 
rather than actual RPG II code names for devices. Code names differ from system to system and 
from device to device. 


During compilation, the compiler associates the file name with the device name. When 
you use the same file name in the rest of your program, the computer will know which 
device to use. . 


File Use 


You must also describe how each file and its associated device is used in a program. 
Files can be used as either input or output. If records are read from a file, the file 

is an input file. If a new file is created during the job, the new file is an output file. 
Printed reports are the most common type of output files, but card and disk files can 
also be output files. 


You specify file use by placing either an I (input) or O (output) in column 15: 


File Typ 





File Designation 


Column 16 is used to explain more about the use of input files. An input file can be 
either primary or secondary. In this book, we are discussing the use of only one input 
file. When only one input file is used, it is always a primary file and you place a P in 
column 16. | 


Record Size 


When describing files, you must specify the length (in characters) of records in the file. 
Record length is entered in columns 24-27. Enter the length so the last digit is in 
column 27: . 





The record length specification does two things: 


1. It tells the compiler how much storage space to set aside for a record (input or 
output). 


2. It specifies how many characters must be read to get a complete input record. 


Record size for card files is easy to determine. It is either 80 or 96 depending upon the 
size of cards you have. Maybe not all your cards have information in all columns, but all 
columns must be read to get an entire record. Blanks are placed in storage positions 
corresponding to unpunched card columns. 


The size of records (lines) on the printer is also easy to determine. Printed records are 
limited by the size of your printer (the number of print positions in a line). 


You may, if you wish, specify a record size smaller than actual printer size. If you do this, 
make certain that none of the lines to be printed are longer than the length you specify; 
otherwise, some information will be lost because the storage area reserved for the output 
record is only as large as the specified record size. 


Records on disk files can be any size. The maximum size is limited only by the capability 
of the device. When you use one of these files for a job, make sure you enter the correct 
record size; that is, the one established at the time the file was created. 


DESCRIBING INPUT RECORDS _| 


Besides describing files, you must describe the records in each file. The compiler needs this 
information to create an object program that will read records properly. Input records are 
described on the Input sheet. Information needed to describe the record in a file includes 
the name of the file containing the record, the name of each field in the record, and where 
each field is located on the record. You fill out the indicated columns to describe fields 
and data in the record: 
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To help in describing input records, you can use the Record Layout Form described in the 
beginning of this chapter. This form shows the location and length of all fields in the record. 


File Names — 
To tell the compiler which records you are describing, enter the name of the file containing 


them in columns 7-14. The name must be the same (and spelled exactly the same) as the 
one you assigned to the input file on the File Description sheet: 
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Field Names 


To identify individual fields in the record, you must give each field a unique name. From 
information you placed on the File Description sheet, the compiler determines the size 
of the storage area for each input record. The field names you supply on the Input 

sheet tell the compiler to divide this storage area into smaller sections so each can be 


addressed separately. 
_ The rules for forming field names are as follows: 
@ The field name must be from 1-6 characters long. 


@ The first character must be alphabetic. Remaining characters can be either alphabetic 


or numeric. 


e@ Blanks must not be placed between characters in a field name. 


@ The field name must begin in column 53 on the Input sheet. 


Which Names Are Valid? 






Field Name 








Decimal Positions 
Control Level (L1-L9) 


55 56 57 58]59 6C 


wel | — Valid name. 
iD Wo | ~<—Invalid name. A blank cannot be used between letters in the name. 


CloluWi7| ~—!nvalid name. A field name can be no longer than six characters. — 


Id 
SHIN Pa | ~— Valid name. 


NciR's|_ | invalid name. The name must start with an alphabetic character (A-Z, #, $, @). 





It is a good practice to assign meaningful field names. For example, a field containing 
customer numbers would be more meaningful if it were called CUSTNO rather than 
FIELDA. CUSTNO indicates something about the data in the field. 


Enter field names one line below the file name, using a separate line for each field: 
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Sequence 


Be sure to name every field that contains information necessary for your job. If you need 
all fields on the record, name them all; if you need only a few, name only those you will 
need. The entire record is read, of course, regardless of how many fields you are using 
from that record. However, only information in the fields you name can be used by the 
program for output. 
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Field Location 


After you assign a field name, you must tell where the field is located in the record. This 
enables the compiler to associate the field name with the right information. To describe 
the field location, you specify the position in the record at which the field begins and ends. 
Starting position is specified in columns 44-47 (From); ending position is specified in 
columns 48-52 (To). When a field is only one character long, starting and ending position 
entries are the same. Field location entries can be easily determined from the Record 
Layout Form: 
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The compiler also determines field length from the To and From entries. The compiler 
needs field length to determine how many storage positions to allow for each field. If 
you specify a field length of 6, the compiler allows six positions in storage for the field. 


| Type of Data 


To complete your description of the input fields, the compiler checks column 52. This 
column indicates whether data in each field is alphameric or numeric. A numeric field 
can contain only numbers; an alphameric field can contain numbers, letters, and special 
characters. 


If column 52 is blank, the compiler assumes the field is alphameric. For numeric fields, 


column 52 must contain an entry. This entry indicates the number of decimal positions 
(digits to the right of the decimal point) in the field: 


20 


Leave column 52 blank for alpha- 
meric fields. Enter 0-9 to indicate 
number of decimal positions in 
numeric field. 





Although you do not include decimal points in fields on input records, you must consider 
them if you want correct output data. By specifying to the compiler the number of 
decimal positions you know to be in a numeric field, you provide the information necessary 
to produce an object program that will handle numeric data with decimals. 


Remember, any field used in an arithmetic operation (add, subtract, multiply, or divide) 


must be specified as numeric. 


DESCRIBING OUTPUT RECORDS 


Output records are described on the Output-Format sheet. Information needed includes 
the name of the file containing the output record, the name of each field in the record, 
and where each field is to be placed in the record. You fill in the indicated columns to 
describe how the output records should look: 
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If the output is a printed report, you make additional entries describing the format of the 
report; that is, entries indicating the spacing and punctuation you want. These entries are 
discussed later under Printed Reports. 


The Printer Spacing Chart and Record Layout Forms are useful when you are writing 
Output-Format specifications. The Record Layout Form shows the organization of 
fields on a card or disk record; the Printer Spacing Chart shows the format of printed 
records. 


File Names 


You indicate the output record you want created and the device you want to create 
the record by entering an output file name in columns 7-14, Make sure the name you 
enter is the same (and spelled exactly the same) as the name you entered on the File 
Description sheet for the output file: 
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Record Type 


Three different types of records can be specified on the Output-Format sheet: heading, 
detail, and total. You usually find all three types in a printed report. When output 
consists of card or disk files, however, you normally have only detail and total records: 











ACCOUNTS RECEIVABLE TRANSACTION REGISTER 
Heading 
Records 


07/11/71 . PAGE O1 
Cust JOURNAL INVOICE CASH INVOICE JOURNAL 
DATE NO CUSTOMER NAME No NO AMOUNT AMOUNT AMOUNT 
07/11/-- 759820 SOUND OF THE SEVENTIE 063420 $ 46.23 
07/11/-- 633870 OLDE VILLAGE SHOPPE 063421 89.70 
07/11/-- 642990 PARAGON TV SALES 063422 20.30 
07/11/-- 122620 CANNIZONI STUDIOS 063422 129.76 
Detail 07/11/-- 682030 RAYMONDS RAPID REPAIR 
Records 
: 07/114/-- 742950 SARATOGA VARIETY 
07/11/-- 014280 BAKER BRADLEY & CO 
O7/11/-- 872060 UNIVERSITY ELECTRIC 
07/11/-- 883290 VILLAGE MUSIC & TV 07-036 $18.23CR 


O7/11/-- 006280 ALLSTONS 07-037 10.70CR 
Total 


TOTALS $234.77* $285.99% $28.93CR* 
Record 


Heading records are printed at the top of a page. They include report titles, column headings, 
or any other information needed to identify the kinds of information found in the report. 


Detail records contain information about an individual item. Information in a detail record is 
often taken directly from an input record. 


Total records are written after a group of detail records. They usually contain data that is the 
result of calculations on information in a group of detail records. 


These entries specify the record type: 


To specify record type, place an appropriate 
entry in column 15. If the Printer Spacing 
Chart was properly filled out, you can refer 
to it to determine record type: 


dl +——- Heading Record 
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Field Names 


To specify the information to be placed in each output record, you must name each 
field to be included. You specify these fields on separate lines of the Output-Format 
sheet in columns 32-37. Begin the list of fields one line below the file name: 
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- When listing the fields, make sure you enter a name that was previously given to a field 
(for example, a field named on the Input sheet). If the name you enter on the Output- 
Format sheet is not one previously used, the compiler won’t know what information 
you’re referring to. 


Field names are used to create the output record in the output storage area. Information 
is placed in the storage area one field at a time in the order you list them on the Output- 
Format sheet. 


Field Location 


To specify where you want fields placed in the output records, you make an entry in 
columns 40-43 (End Position in Output Record). This entry must be the exact 
position where the last character in a field should be placed in the output storage 
area at the time the record is being created. The entry is easy to determine if you 
use a Printer Spacing Chart or Record Layout Form: . 
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_ PRINTED REPORTS 


When your output is a printed report, additional entries are needed on the Output-Format 
sheet to make the report easy to read. Information must be neatly arranged in rows 
and columns with adequate space between items in a line and between lines. 


| Spacing 


Your field location entries (columns 40-43) control space between fields, but to 
| control spaces between lines you code columns 17-18 (Space). 


You can have the printer single, double, or triple space between lines by entering the 
number 1, 2, or 3 in the appropriate columns. If you enter the number in Space Before 
(column 17), the printer spaces before printing the line; if you enter the number in Space 
After (column 18), the printer spaces after printing the line. You can enter numbers in 
both columns 17-18 if you wish. As many as six spaces (three before printing and three 
after) can be made between lines. 
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Skipping 


You can use Skip entries in columns. 19-22 to control spacing between lines on 
a page and to control printing the first and last lines on a page. A skip can be 
made before or after a line is printed. You indicate this by coding the skip in 
either columns 19-20 (Before) or 21-22 (After). The entry you place in these 
columns depends on the type of printer you have. 


Printer with Tapeless Carriage Control 


The Skip entry for this type of printer can be any line number (1-112) on the 
computer paper. (The standard 11-inch computer paper has 66 lines per page 
when 6 lines are printed per inch.) A Skip entry in columns 19-20 indicates 
the line to which the printer skips before it prints the next line: 
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Printer paper is not rolled backward. If the printer is on line 50 when the 
program issues a skip instruction to line 10, the printer skips to line 10 on the 
next page. 


Printer with Carriage Control Tape 


The Skip entry for this type of printer is the channel number punched in the 
carriage control tape. A channel-1 punch should indicate the first line to be 
printed on a page; a channel-12 punch should indicate the last line to be 
printed. Any of the other channels can be used for skipping by placing a punch 
in the appropriate line of the tape. For example, if you have a 2-punch on 

line 20 of the tape and specify 02 as the Skip entry, the printer will skip to 

line 20 when the program issues the skip instruction. 


To indicate the line where you want to skip, punch one of the channels 1-12 
on the carriage tape. Then specify the channel in columns 19-20 if you want 
the printer to skip before printing the line. Specify the channel in columns 
21-22 if you want the printer to skip after printing the line: 
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Editing 


Editing is a means of punctuating numeric fields by adding decimal points, commas, 
and negative signs. It can also consist of EOUPETESSINE leading zeros (in the number 00149, 
00 are called leading zeros). 


When a numeric field is read into storage, it contains no decimal point or commas; 
when an unedited numeric field is printed, it appears exactly as it is in storage. A large 
number printed without commas or decimals is hard to read. Furthermore, an unedited 
field may not be meaningful when printed out because of the way the computer keeps 
track of negative numbers. 
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The computer uses the last digit in a numeric field to indicate sign (plus or minus). If 
the field is minus, the computer combines a minus sign with the last digit. When a 
negative number is printed out unedited, the combination of digit and sign appears as 
aletter. For example, minus 6439 prints as 643R. On the other hand, a positive field 
has no sign (a numeric field that does not have a negative sign is assumed to be positive). 
A positive field, therefore, prints normally. Positive 6439 prints as 6439. 


The compiler can provide instructions to edit in a number of ways. All you have to do is 
enter an edit code in column 38 of the Output-Format sheet. Many codes are available, 
each indicating a different type of editing. Figure 4 shows the codes and the editing done 
for each. Figure 5 shows some examples of editing. 


Note: When you edit a field, you often add characters to it. When printed, the edited fields require 

more space than they did on input records or in storage. When specifying end position for an edited ; 
field, always take into account the spaces needed for the punctuation that will be added. oe 

Printer Spacing Chart shows the amount of space needed for the edited field. 


Sign For Negative Balance 
Edit Decimal Zero Print Out On 
Code Point Suppress Zero Balance 
[el Cafe fare  feaee 


Blanks 


.00 or 0 





* The X code removes the plus sign of the field. 
** The Y code is used for date fields. It suppresses only the leftmost zero and puts 
slashes in a three to six digit field according to the following pattern: 
nn/n 
nn/nn 
nn/nn/n 
nn/nn/nn 
*** The Z code removes signs and suppresses zeros. 


Figure 4. The edit codes shown in the first column are used in column 38 of the Output-Format sheet 
to punctuate the field named on the same line. Only numeric fields can be edited. The 
decimal point is automatically inserted in the correct position. 
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Field Length 1769532 02 041345 © 
and Digits 





Field Positive Negative 

Character- Number— Number— 

istics Two Decimal Two Decimal 
- Positions Positions 


17,695.32 
17,695.32 
a 
jireess2 | oe 
Edit Codes 
ee oe 
[re5s2 | 
OK = 


17695.32 3 


| Must be used with a 3 to 6-digit field. 


Zero--TWwo 
Decimal 
Positions 


Zero—No 
Decimal 
Positions 





Positive 
Number— 
Three Decimal 
Positions 


Figure 5. The table above shows the effect of editing on five different fields. It illustrates what will be 
printed out by using each edit code on the fields. 
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Job 1: Printing A Simple Report Using The Three Basic Cycle Operations 






JOB DEFINITION 


Print a report listing all items sold during a week. The selling of an item is known as a 
transaction, so the report is titled Transaction Register. 





During the week, a transaction file is created. At the end of each day, transaction records 
are punched in cards from information obtained from order forms received during the day. 
To get the printed transaction report, you list the information from all input records on the 
printed report. 
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JOB REQUIREMENTS 


Input: Sales transaction file consisting of 96-column cards. The format of the input 
records is shown on this Record Layout Form: 





i f2[3fatsTs]r fs] afiof fie] is] ia] isl ie] [va [v9 feo] 21 [22]z3]24]2s]26 [or ze Joo]s0 [31 [32]33]34]35 ]36]37 [38 39] 4041 [az ]43]44]4s 14547 [48 


Print 


Print Lir 
Tier 2 


Print Line 1 
Tier 1 





TRANSACTIN ITEM ITEM 
Punch | pare | NUMBER DESCRIPTION QuANTITY| PRICE 


coal PERE REE EE ERE EE SEE 0] |e 56 5S ae eas Ta 
ontro 
cet | LETT TT TTT TTT EEA 


two decimal! positions 


Output: A Transaction register printed on a 96-position printer: 


07/23/70 413010 CHOOL BOX LOOA FLUSH 
07/23/70 412146 CH148 BREAKER 15A 
07/23/70 411116 1500 TWIN SOCKET B 
07/24/70 503029 MOTOR /2 HP 60 CYC 
07/24/70 317802 TERMINAL CLIP 
07/24/70 326917 TERMINAL BAR 
07/24/70 411121 1506 SOCKT ADAPT BRN 


07/24/70 "412997 CH1L73 BREAKER 30A 
07/24/70 413088 CH176 BREAKER 60A 
07/24/70 411174 CL5L SIL SWITCH BRN 
07/24/70 413090 CHOO5S BR BOX 150A 
07/24/70 718326 FC803 FUSE 15A 





This Printer Spacing Chart shows how the report is formatted: 


3/3)314 8}6/8 
castes HEE ES SRSA TCea RSSh ESPs Ee SIS 


TT 
D PSELCTTEE A RCT MSOC RK MX) TTT RDO TTR S PCT 
eee eee eee 
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LT a 
Tr demrey aire ALCL rie Pe SeTTIOME Ca ct TPR RIEL 

Lett TTT TT rnER att tT Wheeler bhi TTT 
PEE EEECETEE CECE rane RRS COSA 

LIT TT TTT TTT SRREGERE RGR Ee RAE RROREREE 

Rat ECLECTIC ett PEC E EEE CC P| tt 
pat CELE er bate sprees eave etree EEE LTT 
SETI TTT TEE LETT TT TT PITT 
PSEA EEEEEEE EEE EEE EEE EEEEE EEE EEE EEE 
est T TTI TET TTT Ce ELEC Tet tare LH 
Bhp bef e ppt PEEEEEEEEEEELEE EEE OEE LI 
TTT 
ee 
Poff tL ff 
aol TTT TTT 
au TTT TTT 
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International Business Machines Corporation 


RPG CONTROL CARD AND FILE DESCRIPTION SPECIFICATIONS 
= ! fay Tooele ealiae | 

Brood Sa a Lj { Instruction 
; ie Hokinann. 


fron TP ETT 
File Description specifications describe the files used: one input and one output. 
The input file, consisting of 96-column transaction records, is given the name 
TRANS. | in column 15 indicates input file; P in column 16 indicates primary 
file; 96 in columns 24-27 tells how long the records are. The device used to read 
the file is a card reader (the exact code name you enter in columns 40-46 depends 
upon your system). The output file is a printer. Filename is TRANSLST. The 
print line (record length) is 96 positions long. 






75 76 77 78 79 80 


1 2 
z lenges 
$4 wi (OSH 
Page PD Identification / | 





Date I, 



















c 
3 
a 






a 
> 
e 
E 
5 
° 
a, 
6 











Ep 
|= |= 
ME 















Notice that entries have been made in columns 1-2 and 75-80 in the upper right- 
hand corner of each sheet. Page number (columns 1-2) along with line numbers 
(columns 3-5) help you keep your specifications in order. These numbers are 
punched in the source cards. Then, if the source cards get out of order, it is 
easy to arrange them in proper sequence by the numbers in columns 1-5. Col- 
umns 75-80 identify your program. 





File Type 





File Designatior 











End of File 














Line Filename Sequenc 









File F 
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programmer L- K. Hof fF mann _ 








Record | __ Record Identification Codes Codes 























Binary 














Sterling 
Sign 
Zero | Position 


Filename Field Name 








Record Identifying Indicator 
ee 
Packed/B 


Form Type 

Option (0) 

Decimal Positions 
Matching Fields or 
Chaining Fields 

Field Record Relation 































3.4 5)]6)7 8 9 10 11 12 13 14]15 16 18]19 20/21 22 23 24 7 40141142] 43 48 49 50 51/52/53 54 55 56 57 58/59 60/61 62/63 64/65 6 68169 70171 72 73 74 
pe eimigads FEECETTE TEEPE Pre 
1] | | bldpare | TTT TTT TTT 

Input specifications describe the input records. The input file is ac aetna MMO] TTT 
named first. The name entered must be the same as the name given & areal beset CEC CEEEeeEe Cee 
ae ais ; : Mary tit ttt itty ry 

to the input file on the File Description sheet. Fields on the input 331 | 37 ! 
| | iDitaed neut Woe | azelavie COTTE 
records are then described. Most of the information for describing hale. Ric ene ede eric 
fields is taken from the Record Layout Form. The record contains Oe eae eel echoed debe hole 
five fields, all of which are needed for output. Therefore, all five fields 9 | /|[|[{/[[1[/II ITT TILI TTT 
are described, starting one line below the file name. Field description Pe Selon etek ces Ce ent Ede 
entries include field location, field name, and decimal position, which SARTRE AAT TORR EERE 
indicates type of data (alphameric or numeric). Any field to be used Eel ade ei Male ALA TO cs |e 
in arithmetic operations or edited must be numeric. The output shows Stes HEP 
that three fields are edited. Thus, three fields have an entry in column ‘ EERE 
52 to indicate numeric fields. LeeLee Lelie 
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Edit Codes 


Zero Balances 
Filename . End : Yes : , ae 
Positon Yes No Field Edit 
i Z = Zero 
Suppress 

















Output-Format specifications describe how an output record will look. The output 
file is named. D is entered in column 15 to indicate a detail line (one printed for 
every card read). A 1 in column 18 specifies single spacing. All fields to be printed 
are now listed, one per line, starting one line below entries describing the entire line. 
End Position, taken from the Printer Spacing Chart, is given for each field. Again, 
according to the Printer Spacing Chart, three fields are to be edited: DATE needs 
slashes (Y edit code), QTY must be zero suppressed (Z edit code), and PRICE must 
be zero suppressed and punctuated with decimals (edit code 3). Edit code 3 was 
chosen for the PRICE field instead of edit code 2 because PRICE, being a 5-position 
field with two decimals (xxx.xx), needs no commas. 


fofTofofofofofofofol{ololojofofofololofolo|a Formtyre 
pa) i ese tS 
ae een SEs! 


pa ea = ee ee Pe hele |e be )e)/-oile 
PT yy fe Tee [s [= feo fo fot ~fofafaytote T=] 
pee sey Sop as ee ee eS ee es 
a ea ee a Se Pe De ee 2) 

; 





Writing Specifications For Calculation Operations 
Most jobs require some processing. In RPG II, processing can include calculating, com- 
paring, moving, or changing data. In this discussion we’ll consider only calculating; 
that is, adding, subtracting, multiplying, and dividing. 


PROGRAM CYCLE OPERATIONS 


When you specify a calculation operation, you are adding one more operation to the basic 
program cycle: the detail -calculation operation (see Figure 6). 


START 













Perform detail 
calculations 





Perform detail — 
output operations 





Move data from record selected at 
beginning of cycle into processing area. 





Read a record. 


Figure 6. This is a basic program cycle showing the addition of detail operations. 
Because this is a detail operation, it is performed during every cycle for every record read. 


The Calculation sheet is used to describe the operations you want performed. Information 
needed includes the type of operation to be done, the field or constant to be used in the 
calculation, and where the result of the calculation i is to be placed. You fill out the 
indicated columns: 
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1 (2 75 76 77 78 79 80 


Page Program . 
identification 


Type of Operation 
(ADD, SUB, MULT) 











Date 





Program 





Programmer 






















































Indicators 
tine |u| 2 Factor 1 ~ Operation Factor 2 Comments 

Sia a 

eed 

L182 
3.4 «S16 7118 19 20 21 22 24 25 28 29 31  Y 
fol] |e] TENET 
ola] [el PET TT TATE EET EE EET EES 
[3] |e] PLL LATE EE ELE EE 
jolal {c| PTT TTT TALE TTT EET TE EE 
ols] |e] | Sea SIT 
ols] {c| | Baissea ae 
lola {| || | BRECESAREEER 
fofa} [o| rT | Data to Be Used Pe Cru aelc oleh Where to Put Result 
pole} |c| | | | in Operation a peas shield and in What Form 
HOEGHE hed ETE Se to Leave It 
lat fe} | | | PTET TY 
{2} fel | | Be PELE ELLE PS 
els} fel TT TL eT Te MTSE ce pel STS TD aS TSM et eT ST Ie eT ile ae Tc 
els| del | TL pe} | Eg 
is} eT TT TTT TTT TT PTET ETT TTT 
PT | fel PEELE 
Hyp) bpp abe bb Ee HE ee 
eee Pal SAG ae DT Ree SSP Dal sei DE es Lanta Pea (is) eS Ns Si ed el 
FEE CCEECEECC EEE CELE EEE CECE 
VST Pe PS II Te EL a eee Pes) SP Sb Is] T CRS all ee Pave STE ae Te etal 
































Specify one operation per line. In each program cycle, processing steps are done in the 
order you specified on this sheet. If calculations must be done in a particular order, you 
must list the operations in that order. 
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DESCRIBING TYPE OF OPERATION 


To indicate the type of operation, you enter one of the following operation codes in 
columns 28-32 on the Calculation sheet: 


ADD (add) 
SUB (subtract) 
MULT (multiply) 


DIV (divide) 


DESCRIBING DATA TO BE USED 
After you have specified the type of operation, you must identify the data to be used. 
If you specified ADD, for example, you must tell the system what to add. You do this 
by naming the fields to be used in columns 18-27 (Factor 1) and 33-42 (Factor 2). 


Instead of naming a field in Factor 1 or Factor 2, you can enter a constant; that is, the 
actual data instead of the name of a field containing the data: 


500 Constant (actual data) 
AMOUNT Name of a field containing data 


Constants can be either numeric or alphameric, but for now we’ll discuss only numeric 
constants. The rules for using numeric constants are as follows: 


© Constants can be up to ten numeric digits (0-9). . 


© Constants can have a sign and decimal point. The sign, if used, must be the leftmost 
character. The decimal point, if used, must be shown as part of the constant (4.12). 


@ The first character of the constant must be placed in the leftmost column of the 
Factor field. 


@ Constants cannot contain blanks. 


The contents of a field can change during execution of a program, but constants do not. 
If you want to add, multiply, subtract, or divide the same number during every program 
cycle, you can use a constant: 






Resulting 
Indicators 
















Factor 2 Comn 





Factor 1 Operation 


simai Positions 
f (H) 





Add a constant 1 to CARDS at detail calculation 
go time, thus providing a count of the records processed. 





Calculate the circumference of a circle by multi- 
M|~——_ plying diameter by the constant 3.14159. 


fT 
eee 
ior _| It 
ee 


~~ __ Convert a units quantity toa dozens quantity 
by dividing QTY by constant 12. 


Pt 
| | Re 
fe fet TT 





a See 
ao a 
a a ee 
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To the compiler, a constant is like a field name. During compilation, the compiler 

checks Factor 1 and Factor 2 for constants. If there are any, the compiler assigns a storage 
location for the.constant and gives instructions to the computer to put the aes 
constant in that location at the beginning of job execution. 


When you enter the fields in Factor 1 and Factor 2, be sure to consider their order 
because specified operation may have an affect on the result: 


ADD . SUBTRACT 


Factor 2 is subtracted from Factor 1.and 
the difference placed in the Result Field. 


Factor 2 is added to Factor 1 and 
the sum placed in the Result Field. 


Factor 1 Operation Factor 2 i Factor 1 Operation Factor 2 


21 22 23 24 2! 


au {111 sia | plepwicitt || 
ven [Tse | rola). [| 
BER RMAR ANSE E AMAR aeD 


The order of subtract operations is 
important. The bottom line would 
not produce the desired result. 


Either tine adds the two amount 
fields. The order of the fields makes 
no difference in addition. 


MULTIPLY DIVIDE 


Factor 1 is divided by Factor 2 and the 
quotient is placed in the Result Field. 
Factor 2 cannot be Zero. 


Factor 1 is multiplied by Factor 2 and 
the product placed in the Result Field. 


Factor 1 Operation Factor 2 Result Field Factor 1 Operation - Factor 2 Result Field 


7/18 19 20 21 22 23 24 25 2 38 37 38 39 40 41 3.44 45 46 47 48/4 7H8 19 20 21 22 23 24 25 2 35 36 37 38 39 40 41 44 45 46 47 


Hodds [11 abil fear [11 | | esa er CTT oi hE DoIEN | 
Ralrie || | | viel LITT TTT ei | feriv tT Tt | Doze 3 


| Hols. RISIPALY | 
Ree eee ee PECEEEECHPER PERETTI 


Either line multiplies the hours and rate 

to obtain the gross pay. The order of 

the fields makes no difference i in multi- 
plication. 


The order of the fields in divide 
operations is important. The bottom 
line will not convert a units quantity 
to dozens. 





DESCRIBING THE RESULT FIELD 


You must specify where you want the result of a calculation stored by naming that field 
in columns 43-48 (Result Field). The name you enter in the Result Field can be the name 
of a field already defined on the Input sheet or a new field. 


You would need to name a new result field in these two situations: 


1, 


No input field is available. When data is placed in a storage location, it destroys any 
previous data in that location. Consequently, when the result of a calculation is 
stored in a result field, it destroys what was in that field. If you need all information 
from the input record in detail output and also need a result field, you must name 


a new field. 


No input field is large enough. You cannot change the length of an input field 
by specifying a field length on the Calculation sheet that is different than the one 
you specified on the Input sheet. If you need a larger result field than any 
available input field, you have to specify a new field and give it a different name 


and length. 


If you name a new field, you must specify field length (columns 49-51) and decimal 
position (column 52) so the compiler can assign adequate storage for the new field: 


a 
Internationa! Business Machines Corporation 
. 


Date _ 


Program — 


Programmer _ 


Form Type 


2) [-er er [esl | se |e 
ate Ae 
et ft [oe] ee 


Factor 1 Operation Factor 2 Result Field 


RPG INPUT SPECIFICATIONS 


rig Joowe | TT TTT 
a = GT 


ification Codes 


Field Name 


Decimal Positions 


International Business Machines Corporation 


RPG CALCULATION SPECIFICATIONS 


roomy oom | [TT TTT 
Senco a 2 


18 19 20 21 22 23 24 25 5 36 37 38 39 4 4 


amy [111 mokin kos [111 [kes | TT Ttt 


The result field COST is not a new field 
because it is already defined by Input 
specifications. Field length and decimal 
position entries are not needed because 
the compiler already has this information 
and has set aside storage space for the 
field. 


Decimal Positions 


International Business Machines Corporation 


RPG INPUT SPECIFICATIONS 
ies Punching 


Program _ Instruction 


Programmer 


Field Name 


Form Type 
Decimal Positions 


pes) oes eee 
cere Lee = 

po cede shee 
te tt | oe eee 


RPG CALCULATION SPECIFICATIONS 


wore Tome | TT TTT 
pee eels 


Factor 1 Operation Factor 2 Result Field 


18 39 20 21 22 23 24 25 2 37 38 39 40 45 46 51 


el 
International Business Machines Corporation 


Decimal Positions 


ali 1111 muir leolsit {1111 rotate! | | 2 


The result field TOTAL is a new field because 
it is not defined on the Input sheet. Field 
length and decimal position entries are needed 
so that the compiler can set aside a storage 
area for this field. 





Result Field Length 


When you name a result field, make sure you specify one large enough to hold the 
results, Always consider the length of the fields involved in the operations. For 
example, if you are adding a two-position field to a three-position field, you must 
determine the largest result you could possibly have: 


999 
99 
1098 


Because there are four digits in this result, you would specify at least 4 as the result 
field length. 


If this calculation would occur many times in your program, as in a running total, you 
would probably need a result field length larger than 4. It is up to you to determine the 
decimal positions needed; failure to specify a large enough result field can mean a loss of 
data. 


Decimal Positions 


For a new result field, be certain to place an entry in column 52. If the new field 
contains no decimal positions, enter a zero. Remember, this entry indicates types 

of field (numeric or alphameric) as well as decimal position. If the result field is not 
specified as numeric by an entry in column 52, the compiler will not provide instructions 
for the operation. . 


Half-Adjusting Results (Rounding) 


In RPG IJ, rounding results is called half-adjusting: when the number to the right of the 
last numeral you want to keep is greater than 4, 1 is added to the last numeral. The 
number 3.14159 rounded to four decimal positions becomes 3.1416. The same number 
rounded to two decimal positions is 3.14. 


To half-adjust any calculation result, you place an H in column 53 of the Calculation 
sheet on the same line as the field to be half-adjusted: 





Resulting 
Indicators 
| Arithmetic —_| 








Indicators 











Factor 2 Result Field 





Factor 1 Operation 


Decimal Positions 
Half Adjust (H) 






















17418 19 20 21 22 23 24 25 26 27428 29 30 31 32433 34 35 36 37 38 39 40 41 42143 44 45 46 47 48]49 50 51452]53 56 57/58 59/60 61 62 63 

LTT Teigtilcle | 1 uel file tt ttt | peistciwizt | tsialal | ETT TT ETT 
In this example, DISCNT is half-adjusted. The entry in column 52 (Decimal Positions) 
indicates the number of digits to be retained after half-adjusting is completed. In this 
case, two digits are required. The multiplication and half-adjusting would be done like 
this: 





74.98 ~— Assumed value of PRICE. 
x .06 ~— Constant representing 6% discount rate. 


4.4988 ~— Result which must be half-adjusted to 2 places. 
1 ~—- 1 is added to 9 because 8 is greater than 4. 


4.5088 ~— Slashed digits are dropped since only two decimal positions 
are required. . 





Job 2: Doing Simple Calculations 





JOB DEFINITION | 





Print a report listing all sales transactions for a week. This report is similar to the report 
created in Job 1. The only difference is the addition of the last column on the report 
which is the extended cost per item. Extended cost (quantity sold times item price) is 
not found on the input record and must, therefore, be calculated. 
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~~ 
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JOB REQUIREMENTS 





Input: Sales transaction file consisting of 96-column cards. The format of the input 
records is shown on this Record Layout Form: 


pee M1 
Print 


Print Line 1 Print L 


Tier 1 Tier 2 
ITEM ITEM UANTI P: ICE 
Punch DATE NumBER DESCRIPTION ARNTITY, & 
5 


roam rye [3] 4]5 Je] t[e [9 [ol fie | apie fis [i617] isda WSS ap leas BETA way 42/43/4145 |46] 
Contro 


co FLEET ELT 


two decimal positions 






Output: A Transaction register printed on a 96-position printer: 


07/23/70 413010 CHOO1 BOX 1LOOA FLUSH 
07/23/70 412146 CHL48 BREAKER 15A 
07/23/70 411116 1500 TWIN SOCKET B 
07/24/70 503029 MOTOR 1/2 HP 60 CYC 
07/24/70 317802 TERMINAL CLIP 
07/24/70 326917 TERMINAL BAR 


07/24/70 412997 CH1L73 BREAKER 30A 
07/24/70 411121 1506 SOCKT ADAPT BRN 
07/24/70 413088 CHL76 BREAKER 60A 
07/24/70 411174 C151 SIL SWITCH BRN 
07/24/70 413090 CHOO5 BR BOX 150A 
07/24/70 718326 FC803 FUSE 15A 





This Printer Spacing Chart shows how the report is formatted: 
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Control Card Specifications 


Model 20 


Conversion 


Number 
Of Print 
Positions Address 


to Start 


Output--Shillings 


Form Type 
Object Output 
Listing Options 
Input--Shillings 
Input--Pence 
Output--Pence 
Inverted Print 
360/20 2501 Buffer 
Overlay Open 
Overlap Printer 
Binary Search 
Tape Error 
2152 Checking 


The same files are used for Job 1. Therefore, 
the File Description entries are the same. 


MFCM Stacking Sequence 
Alternate Collating Sequence 


Work Tapes 
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File Description Specifications 















Mode of Processing File Addition/Unordered 
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for DAM 
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for Cylinder Overflow 


Length of Key Field or 
of Record Address Field 















File Designation 











End of File Record Address Type Name of Number of Extents 
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This specification tells the computer what calculation to perform. QTY must be multiplied 
by PRICE. OTY and PRICE are fields from the input record and are described on the Input 
sheet. Notice, however, that a new field, EXTCST, is created to hold the result. We needed 
a new result field because we could not use one of the fields described on the Input sheet. 
If we had used one of them, we would lose information needed for printing the detail line. 





Any new field must be defined by describing field name, field length, and decimal positions. 
We chose the name EXTCST. Any valid name could be used. According to the Printer 

Spacing Chart, the EXTCST field is 7 positions long with two decimal positions. We, there- 
fore, used these figures when defining field length and decimal positions. 
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Writing Specifications For Indicators 


So far you’ve learned how to use an RPG II program cycle for producing simple reports, 
However, actual business reports would be more complex. They would include more 
information, have page and column headings, and probably include = totals and final 
totals. 


A report like that shown in Figure 7 would require printing four different lines: report 
heading, column headings, detail lines, and total lines. Some of these lines must be 

- printed only at certain times: headings would be printed only at the top of the page and 
totals only after all detail lines are printed. To produce the report correctly, you must 
use indicators to specify when you want certain things done. 


To you, indicators are two numbers or alphabetic characters you specify on the 
specification sheets. To the object program, indicators are like switches, located 
in the computer. They mean one thing when on; another when off. You can use 
several types of indicators; each type signals something different. 


You must know which program cycle operations are done when indicators are used 
because it is the only way you can use indicators correctly. In this section, indicators 
are discussed one at a time. You will learn when to use indicators, how to specify 
them, and which program cycle operations are associated with each. 


TRANSACTION REGISTER 


TRANSACTION ITEM DESCRIPTION. QUANTITY UNIT | EXTENDED 
DATE NO COST COST 


07/23/70 413010 CHOOL BOX 100A FLUSH 4.90 49.00 
412146 CH1L43 BREAKER 15A »89 89.00 
411116 14500 TWIN SOCKET B 1.12 560.00 


698.00 


07/24/70 503029 MOTOR 1/2 HP 60 CYC 293.56 
317802 TERMINAL CLIP 512.00 

326917 TERMINAL BAR 412.00 

411121 1506 SOCKET ADAPT BRN 76.00 

412997 CH173 BREAKER 30A 68.00 

413088 CH176 BREAKER 60A 46.00 

411174 C151 SIL SWITCH BRN 232.00 

413090 CHOO5 BR BOX 150A : 49.80 

718326 FC803 FUSE 215A 64.00 


1,753.36 





Figure 7. This report is similar to those shown before, but note the addition of headings and totals. 


CONTROL LEVEL INDICATORS 
Control level indicators are used when you want to calculate and print totals. Nine 
different indicators can be used (L1 through L9), allowing as many as nine different 
totals in the same program. The control level indicators tell the program two things: 


1. When totals should be calculated. 


2. Which calculations and output operations are total operations, © 
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Control level indicators are specified at (1) to tell the computer when total 
operations are to be done. They are used at (2) and (3) to tell which opera- 
tions are total operations. 


An input field specified on the Input sheet determines when totals should be calculated 
and printed. This input field is called a control field, Whenever the contents of the 
control field changes, a control break occurs. A control break turns on the control level 
indicator assigned to the control field, then all calculation and output operations 

(total operations) conditioned by the same control level indicator are done. 
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Program Cycle Operations 


Figure 8 shows the program cycle operations associated with control level indicators. The 
computer can do calculations and output operations at two different times in one cycle: 
at detail time and at total time. Total operations are not done in every cycle; they are 
done during the cycle in which the control field changes. 


After a record is read, the program determines whether the control field in the 
record just read is different than the control field in the previous record. If it 
is, a control break occurs and the control level indicator you specified is set on. 
When the indicator is on, it means that all records in the control group have 
been read and total operations can be performed. Control level indicators are 
then set off before the next record is read. 


START 















Perform detail 
output operations 






Perform detail 
calculations. — 





Move data from record selected at 
beginning of cycle into processing area. 


Set off control level indicators. 


Read a record. 





Perform total output operations. 








Change in 
control field? 
Yes, set on 
control level 
indicators. 


Figure 8. Program Cycle Operations for the Control Level Indicators 
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Detail operations for the record that caused the control break are done only after total 
operations for previous records. If the record that caused the control break was processed 
before the total operations were done, information from that record would be included 
with information from records in the previous group. The totals from the previous group 
would then be wrong. 


RPG I! Specifications 


To specify a field as a control field, you assign a control level indicator (L1-L9) to an: 
input field in columns 59-60 on the Input sheet: 
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To specify which operations are total operations, you assign the same control level 
indicator in columns 7-8 on the Calculation sheet and in columns 24-25, 27-28, or 
30-31 on the Output-Format sheet: : 
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is to be done only when a control break occurs. The ADD operation in 
line 03 is a total operation that will be done when L1 is on; that is, when 
the DATE field changes. 
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The T in column 15 indicates which output 
records are total records. Every total record 
should also have a control level indicator 
specified to tell the computer when to do 
the operation. The output operation 
described in lines 06 and 07 is done only 


You can specify up to three different indicators on a line on the Output-Format sheet. 
If you are using only one indicator, you can enter it in any one of the three positions. 
The control level indicators specified on this sheet can be used to condition an entire 
output record or only certain fields in the output record: 
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Acontrol level indicator specified on the same line as the field name 
Cd) indicates that the field should be written only when the control 
level indicator ison. However, a control level indicator specified on 
the same specification line as the line type entry in column 15 (2) 
indicates that the entire line should be written when the control 
level indicator is on. 
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Using the Blank-After Specification 


In RPG II, you can set fields in storage to blanks (in the case of alphameric fields) or — 
zeros (in the case of numeric fields) after they have been written out. You do this by 
entering a B in column 39 of the Output-Format sheet. 


This is a particularly useful feature when you are doing total operations. It allows you 
to use the same field over and over for accumulating and printing totals. For example, 
you could use a numeric field to accumulate totals for a particular group of records. 
After the totals are accumulated and printed for that group, you can use the same 
numeric field to accumulate the totals for the next group of records. To do this, place 
a B in column 39 for the total field. If you don’t place a B in column 339, the totals 
for the second group of records would be added to the totals for the first group of 
records. 
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Job 3: Using Control Level Indicators To Calculate And Print Totals 


| JOBDEFINITION J 


Print a weekly sales transaction report that lists all daily transactions and gives the total 
sales for each day. This report is similar to the reports produced in Jobs 1 and 2. All 
items sold each day are listed. Item number, item description, quantity sold, unit cost, 
and extended cost (quantity times unit cost) are included for each item. The date is 
printed only for the first transaction encountered that has a new date. The total sales 
amount for a day is printed-after all transactions for that day have been recorded. 
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JOB REQUIREMENTS 





Input: Sales transaction file consisting of 96-column cards. Cards are arranged in ascending 
order by date. The format of the input records is shown on this Record Layout Form: 









ITEM 
DESCRIPTION 

























two decimal positions 


13} 14 [15 [16 | 17] 






Program 
Control 
Card 









Processing: 


e@ Multiply quantity times unit cost to find extended cost. 
© Find total of all item sales per day. 


Output: A Transaction Register printed on a 96-position printer: 


07/23/70 413010 CHOOL BOX 100A FLUSH 4 49.00 
412146 CH1L43 BREAKER 15A 89.00 
411116 1500 TWIN SOCKET B . 560.00 


698.00 


07/24/70 503029 MOTOR 1/2 HP 60 CYC ° 293.56 
317802 TERMINAL CLIP . 512.00 
326917 TERMINAL BAR ° 412.00 
411121 14506 SOCKT ADAPT BRN 76.00 
412997 CHL73 BREAKER 30A . 68.00 
413088 CH176 BREAKER 60A . 46.00 
411174 C151 SIL SWITCH BRN ° 232.00 
413090 CHOO5 BR BOX 150A . 49.80 
718326 FC803 FUSE 15A 64.00 


1,753.36 





This Printer Spacing Chart shows how the report is formatted: 
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Input fields are described as before. In this job, totals must be 
accumulated and printed. You know that totals must be printed 
whenever a record with a different date field is read. The date 
field determines when total operations should be done. The date 
field is the control field and must be specified as such. This is 
done a the L1 ony in columns 59-60. 
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For each item, QTY must be multiplied by COST to get EXTCST (extended cost). To get 
the total of all sales made during the day, EXTCST is added to DAYTOT (the field used to 
accumulate daily sales total). 
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Two different lines—detail and total—are needed for this report (note D and T in column 15). 
The detail line is described first. According to the report, the date field is to print only for 
the first record in a new control group. We do this by conditioning the date field with the 

L1 indicator. The date will now print only when L1 is on; that is, for the first record in each 
control group. 


The total line, which contains only one field is described next. The entire line is conditioned 
by L1 because it is a total line. The B in column 39 causes the DAYTOT field to be reset to 


~~ 
So 
~ 
= 


the totals of all days would be accumulated. 





The first page (1P) indicator is used on the Output-Format sheet to specify the headings 
you want printed only on the first page of a report. Headings, usually printed at the 


top of the page, include such things as report titles or column names: 
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Program Cycle Operations 


One operation in the program cycle is concerned with the 1P indicator (see Figure 9). 
The 1P indicator is automatically set on at the beginning of every job, so the first 
operation taken by the computer is to print any output record conditioned by 1P. After 
this is done, the first record is read and the program cycle operations are executed in 
order. , 


Headings conditioned by 1P are printed only once—at the beginning of the job on the first 
page of the report. Any heading records that are not conditioned by 1P are handled in 
the same way as detail records. This means that they will be printed along with detail 
records in every cycle. 


START 






Perform heading 


Perform detail 
calculations. 











Move data from record selected at 
beginning of cycle into processing area. 





Set off control 
level indicators. 





Read a record. 





Perform total output operations. 





Perform total 
calculations. 






Change in control 
field? Yes, set 
on contro! level 
indicators, 







Figure 9. The first operation in the first program cycle concerns output operations conditioned by the 
first page (1P) indicator. 


RPG I! Specifications 


Heading information to be printed on the first page of a report is specified by using 
constants (actual information instead of field names). Constants for headings must be 
specified according to these rules: 


e@ Constants must be entered in columns 45-70 of the Output-Format sheet. 
© Constants can contain either alphameric or numeric characters. 


e@ Constants must be enclosed in single ayers (The bepinume ite is always entered 
in column 45.) 


@ No field name can be used on the same line as a constant. 


e An end-position entry must be entered for every constant. 
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Positon Field Edit 
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Suppress 
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Invalid constant. The constant must be preceded 
by a quote in column 45. 

Invalid constant. A field name cannot be specified 
on the same line as a constant. 

Invalid constant. The last character in the constant 
must be followed by a quote. 

Sy Valid constant. 
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because no spaces were left between words. 
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Headings too long to specify on one line of the Output-Format sheet can be split and 
placed on separate lines. You must, however, give an end position for each part. 


The heading shown in the Printer Spacing Chart takes 28 positions. A constant contain- 
ing a maximum of 24 characters can be specified on one specification line. Since the 
entire heading cannot be specified on one line, it must be broken into parts. The 
examples given show three different ways to specify this heading: 
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End 
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X = Remove 
Pius Sign 

Filename i ss End : Y = Date 

Positon Field Edit 







Sterling 
Sign 
Position 










Heading lines should be specified first on the Output-Format sheet. The best method is 
to specify your record types in this order: heading, detail, and total. 
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OVERFLOW INDICATORS 
You use overflow indicators to: 


1. Print headings on every page but the first page of a report (the 1P indicator allows 
headings to be printed on the first page). 


2. Control where printing begins and ends on a page. 
3. Advance forms from one page to the next (provided a skip specification is also used). 


To understand how overflow indicators work, you must know how the concept of overflow 
is defined in RPG II: 


© Overflow—Lines that remain to be printed after a page is full. 


Overflow handling—Advancing forms to a new page after the last line has been printed 
on the current page. 


@ Overflow line—The last line to be printed on a page. 


@ Overflow page—The new page to be printed when overflow occurs. 






to 
2 — ae 
The last line to 
be printed ona 
page is known as eds 
the overflow line. ASE Oy, - 
Bee Overflow occurs | 
Seop when the overflow 
be line is printed. 
ne 
a6 6), : 





Printers use continuous forms: a series of pages divided by perforations. Overflow 
handling refers to the means of advancing forms from one page to the next. 
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Overflow can be handled automatically by the system or through specifications you write. 
Note: This discussion assumes that.you are using standard, 66-line forms in the printer. 


Printing always begins on line 06 (assuming the operator positions the first page at line 
06) and ends with line 60. Overflow occurs after line 60 is printed; that is, forms 
advance to line 06 of a new page. 


When overflow is handled automatically, heading lines can be printed on the first page if 
1P is used. No instructions are provided, however, to print headings on overflow pages. 
Any heading lines print whenever and wherever detail lines print. 


When you don’t want overflow handled automatically, you can specify on coding sheets 
how you want it handled, using overflow indicators: 


File Description Specifications 


File Type Mode of Processing File Addition/Unordered 
Fite Desianatl Length of Key Field or Extent Exit Number of Tracks 
ile Designation of Record Address Field for DAM for Cylinder Overflow 
End of File Record Address Type Name of Number of Extents 
Type of File Symbolic Label Exit 
Core Index 
File 
Condition 
72 z 


Filename Sequence 


Labels S/N/E/M 


Organization 
Continuation Lines 


File Format or Additional Area 
Option Entry 
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Filename Field Name [* padition 


Constant or Edit Word 
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Assign an overflow indicator to the printer at Gd) , then use it on the Output-Format 
sheet at (2) to show which operations must be done when overflow occurs. 
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Program Cycle Operations 
Figure 10 shows operations in a program cycle in which overflow indicators are used. 


The program sets on the overflow indicator you assigned whenever the overflow line is 

passed. By setting the overflow indicator on, the program remembers that overflow 

has occurred. As you can see in Figure 10, overflow indicators can be set on at one of 

two times: at detail time when a detail record prints on the overflow line or at total time 

when a total record prints on the overflow line. Notice that the only time a check is made 
to see if the overflow indicator is on is right after total output. If the overflow indicator _ 

is on, overflow operations are done in this order: 


1. Print any total lines conditioned by the overflow indicator. 


2. Skip to new page, provided a skip specification was made on a line conditioned by 
the overflow indicator. 


3. Print all heading and detail lines conditioned by the overflow indicator. 


If multiple detail lines are to be printed in a single . 

cycle, printing may occur past the designated START 

overflow line. This is because all detail printing 

for a single cycle is completed before overflow 
operations occur. 








Perform heading 
operations. 
Perform detail 
output operations. 
If overflow line 
has been 
reached, set on 
; overflow 

Move data from record selected at indicator. 
beginning of cycle into processing area. 





Perform detail 
calculations 









Set off control 
| Be 
















Overflow indicator on? Yes, 
do overflow operations and 


set overflow indicator off. 
Read a record. 





Perform total output operations. 
If overflow line has been reached, 
set on overflow indicator 








Change in control 
field? Yes, set 
on control level 
indicators. 





calculations, 










Figure 10. Program Cycle Operations for Overflow Indicators 
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RPG I! Specifications 


There are eight overflow indicators: OA through OG and OV. You can enter any one 
of these indicators in columns 33-34 on the File Description sheet. If you have more 
than one printer file, however, you must specify a different overflow indicator for 
each file. 


After you have specified an overflow indicator on the File Description sheet, you must 
specify the same indicator on the Output-Format sheet. This specifies what you want 
done when overflow occurs, 


Besides specifying the overflow indicator, you must also specify that forms should 
advance. You do this by placing a skip specification in columns 19-20 on the Output- 
Format sheet: 


International Business Machines Corporation Form X21-9090 


IBM ; Printed in U.S.A. 
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Filename End 
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The skip specification should be made on the first line you want printed on 
the page (usually a heading line). If your printer has a tapeless carriage, the 
Skip entry is the line number of the beginning line (usually 6). If your printer 
has a carriage control tape, the Skip entry should be the channel number in 
the tape that indicates the first printed line on a page. 


Always remember to enter a skip specification for advancing forms in a heading line 
conditioned by the overflow indicator. If you forget, forms will not advance when over- 


flow occurs. 


Using Spacing with Overflow 


You already know that the overflow indicator is turned on when a record is printed on 
the overflow line. However, this indicator also turns on whenever the overflow line passes 
under the printing mechanism. This means that spacing to a line past the overflow line to 
a line on the same page causes the overflow indicator to turn on. Figure 11 shows an 
example of spacing after printing. 
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IBM International Business Machines Corporation Form X21-9090 
® f Printed in U.S.A. 
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Programmer 


Edit Codes 


pea ele eee | | 
to Print Plus Sign Sterling 
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Positon | Field Edit Position 
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Assume, for example, the overflow line for a job is line 60. Assume also that 
the detail line specified prints on line 59. Printing the detail line does not cause 
the overflow indicator to be turned on. However, this detail specification allows 
for two spaces. Spacing two lines moves line 61 into printing position. The 
overflow line (line 60) has been passed so the overflow indicator is turned on. 
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Figure 11. Spacing after Printing 
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Date 
Program 


Programmer 


- Filename : i a End 


Using Overflow and 1P Indicators Together 


The overflow indicator is most often used with other indicators. However, we will discuss 
the use of overflow indicators only with the 1P indicator. Both 1P and OV cannot be on 
at the same time. 


If you want headings on all pages of a report, you have to use both the 1P indicator and an 
overflow indicator. 1P causes headings to print on the first page; the overflow indicator 
causes them to print on all succeeding pages. If a record should be printed when either 
one or another condition occurs (either 1P or OV is on), you can specify indicators in an 
OR relationship: 
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If a record can be written when either one of two conditions exists, place the conditioning 
indicator in an OR relationship. Specify the indicator signaling one condition (1P in this 

case) on the same line as the line type. Place the indicator signaling the other condition 

(OV in this case) on the following line with the word OR in columns 14-15. Then specify 
fields and constants to be included in the record in the normal way. In this example, headings 
will print when either 1P or OV is on. . 


Space and skip entries are not necessary in the OR line. The entries in the line preceding the 
OR line also apply to the OR line. 
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LAST RECORD (LR) INDICATOR 


The last record (LR) indicator is associated with end-of-job procedures. The program 
uses LR to indicate that the last data record has been read and that end-of-job processing 
is to take place. 


Use of the last record (LR) indicator is optional. When LR is not used in specifications, 
the compiler automatically supplies end-of-job instructions. If you use LR, you are 
indicating that certain operations, such as printing a total count of all records read, 
must be done after all input records are processed. 


Program Cycle Operations 


Figure 12 shows the operations in the program cycle associated with the last record 
indicator. RPG II is set up so that it uses an end-of-file record containing some identifying 
information to indicate end of the data file. For example, card devices use a card with 

/* (slash, asterisk) in columns 1 and 2 to indicate end of file. 


Whenever a record is read, the program checks to see if the record is the end-of-file record. 
If it is, the program sets on all control level indicators L1-L9. It also sets on the LR 
indicator to indicate that all records have been processed. All total operations (those 
conditioned by LR and L1-L9) are performed. After total operations have been done, 

the program checks to see if LR is on. If it is, processing stops. 


START 





Perform heading 
operations. 

’ Perform detail 
output operations. 
If overflow line 
has been reached, 
set on overflow 
indicator. 















Perform detail 
calculations. 


Move data from record selected at 
beginni lei ocessing area. 





Set off control 
level indicators. 





Overflow indicator on? Yes, do 
overflow operations and set 
overflow indicator off. 





Read a record. 





LR indicator on? Yes, end Last record? Yes, set on 
of job has been reached. — | control level and LR 


indicators and go perform 
total calculations. 





Perform total output operations. 
If overflow line has been reached, 
. set on overflow indicator. 



















Perform total 
calculations. 


Change in control 
field? Yes, set 
on contro! level 
indicators. 


Figure 12. Program Cy-cle Operations for Last Record (LR) Indicator 
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Filename 


RPG 11 Specifications 


The LR indicator is specified by an LR on the Calculation sheet or Output-Format sheet. 
This entry specifies which operations are to be done after the last record is processed: 
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Program 
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Resulting 
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Factor 1 Operation Factor 2 ‘ = Comments 


International Business Machines Corporation Form X21-9090 


Printed in U.S.A. 
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Sterling 
Sign 
Field Edit Position 
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The.LR indicator-_is specified at (1)-to tell-the computer-which calculations are-to be 
done after the last record is processed. The LR indicator is specified at (2) to tell the 
computer which output operations are to be done after the last record is processed. 





Job 4: Using First Page, Overflow, And Last Record Indicator To Print Headings And Totals 


JOB DEFINITION 





Print a weekly sales transaction report that lists daily transactions, total sales for the day, 
and total sales for the week. This report is similar to the one created in Job 3. The only 
difference is the addition of headings and final total. 


The report title and column headings are printed on every page of the report. All items sold 
each day are listed. Item number, item description, quantity sold, unit cost, and extended 
cost are included for every item. The date is printed for the first transaction in each group. 
After all transactions for a day are listed, the daily sales amount is printed. A final total of 
all daily sales is printed at the end of the report. 


JOB REQUIREMENTS § 


Input: _ Sales transaction file consisting of 96-column cards. Cards are arranged in 
ascending order by date. The format of the input records is shown on this 
Record Layout Form: 


[iT2 fafa} solr} efafiol fief ssfis] is] i6[ir]ie]is [20 [21 [22] 23]z4 Je5]26 27 Jee [20]30 [31 ]32]33 [34 [35 ]36]37 [38 30]40 [41 ]4z]43]44]45 [46 47 |48 [a 





Print 
§ Print Line 1 Print Line : 
Tier 1 ; Tier 2 
t 
IT 
TRANSACTION ITEM ITEM | UN 
DATE NUMBER DESCRIPTION ons COST 
t | 
! 
Program [1 [2/3]4{5]6[7{8[9[io[t [iz] 3]t4 [is fie [1718 {19 [20] 21 | 22] 23[24]25] 26] 27] 28] 29] 30| a Se ai\42/43 [44 ]45 [46147 [48 [49 


Control 
Card 


two decimal positions 


Processing: 


@ Multiply quantity times unit cost to find extended cost. 
@ Accumulate extended cost to find total item sales per day. 
@ Accumulate total daily sales to find total weekly sales. 
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G. 1D. 
IARACTERS PER INCH, 6 LINES PER VERTICAL INCH) DATE 


Output: A Transaction Register printed on a 96-position printer: 


TRANSACTION REGISTER 


TRANSACTION ITEM DESCRIPTION ‘ QUANTITY UNIT EXTENDED 
DATE NO COST COST 


07/23/70 413010 CHOOL BOX 100A FLUSH 10 4.90 49.00 
412146 CH143 BREAKER 315A 100 89 89.00 
411116 1500 TWIN SOCKET B 500 1.12 560.00 


698.00 


07/24/70 503020 MOTOR 1/2 HP 60 CYC . 293.56 
327802 TERMINAL CLIP ° 512.00 


326013 TERMINAL BAR 


07/27/70 321074 2-SPEED SAW . 28.44 
- 325781 SATIN-CUT DADO SET . 39.50 

412146 CH143 BREAKER 1L5A - 44.50 

573022 6-VOLT POWER BATTERY . 28.90 


141.34 


WEEKLY TOTAL 9,573.49 





This Printer Spacing Chart shows how the report is formatted: 
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Lines 01 and 02 are the same as 
for Job 3. Line 03, conditioned 

by L1, will be done only when a 
control break occurs. Once daily 
sales have been accumulated for 

a group (L1 is on), daily total can 
be added to the field WEEK TO 
used for accumulating weekly total. 
(Weekly total could also have been 
obtained by adding EXTCST to 
WEEKTO for every record read.) 
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Six different lines are to be printed so six are described. The three heading lines should 
be printed either when 1P is on (first page) or when OV is on (overflow has occurred and 
forms have advanced). Thus, each heading is conditioned by 1P and OV used in an OR 
relationship. Notice the first heading line has the oc specification. This must be made 
before forms will advance. 


The weekly total is printed only once on the report, after all records have been processed. 
It is conditioned by LR. A constant is specified for this total record so the words 
WEEKLY TOTAL will print as indicated on the Printer Spacing Chart. 





RECORD IDENTIFYING INDICATORS 


In the jobs discussed so far, we’ve assumed that all records in the input file were alike. 
They didn’t necessarily contain the same information, but they had the same fields and 
the same kind of information in each field. They were of the same type. 


In real jobs, it is unlikely that all data files would contain records of the same type. Files 


most often contain many types of records with different fields and different information. 


When using different record types in a job, you must have a way of telling the computer 
what operations (calculations and output) you want done for each record read. Record 
identifying indicators are used for this. 
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Program Cycle Operations 


Figure 13 shows program cycle operations associated with record identifying indicators. 
A record identifying indicator is set on right after a record is read and is set off before 
the next record is read. 


Normally, record identification indicators condition detail calculations and detail output 
operations because detail operations are done for the record just read (the one associated 
with the record identifying indicator). On the other hand, total operations are not 
performed for any one record type; they are done after a certain number of records are 
processed. 


START 





Perform heading 
operations. 
Perform detail 
output operations 
If overflow line 
has been reached, 
set on overflow 
indicator. 







Perform detail 
alculations. 






Move data from record selected at 
beginning of cycle into processing area. 





Set off control 
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Set off record identifying 
indicators. 





Overflow indicator on? Yes, do 
overflow operations and set 
overflow indicator off. 





LR indicator on? Yes, end of: 
job has been reached. 





Perform total output operations. 
If overflow line has been reached, 
set on overflow indicator. 





Perform total 
calculations. 


Change in control 
field? Yes, set 
on control level 
indicators, 











Read a record. 





Last record? Yes, set on 
control level and LR 
indicators and go perform 
total calculations. 






Set on record 
identifying indicator. 






Figure 13, Program Cycle Operations for Record Identifying Indicators 


RPG il Specifications 


These are the RPG II specifications you must make when using different record types 
and record identifying indicators: 
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Assign a record identifying indicator (a 2-digit number from 01-99) to each record 
at Q), then use that same indicator to condition calculations at (2) and output 
operations at (3); which must be done for that record only. Identify each record 
type by describing a code which identifies it at G). lf records must be in a certain 
order, indicate that sequence at G) 


73 


As we said earlier, you must describe each record in your input file. This description 
includes the names of all fields used from the record, the location of the fields, and the 
type of data in the fields: 


a 2 


Print Line 1 


: : Tier 1 
CUSTOMER] ORDER 20 xe 
Punch NumBeER NuMBER sui 
| n2 


Program {1 [213] 18 9 io ft [rz | 13] [is fie | r7]ta [19 [20] 21] 22] 23] 24] 25] 26] 21 


Control 
Card 


Record Identific\tion Codes 











Neld Location 





Line Filename Field Name 


From To 


Record Identifying Indicator 
oe 

Control Level (11-9) 

Matching Fields or 

Field Record Relation 


Decimal /ositions 
Chaining Fields 


Form Type 
Option (O) 


Sequence 





3°94 S|6]7 8&8 9 1011 12 13 14]15 16 sed 14243} 44 45 46 47]48 49 50 51152|53 54 55 56 57 BNO 60|61 62/63 64 





ely birRalws| || | ETT TT TT | eee ey tel ele 
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When you describe fields from each record type in the input file, give a unique field 
name to every different field from all record types. If, however, two or more record 
types contain identical fields, you can assign the same name to the field in each record 
type. Only one storage area would be assigned for the field from several record types, 
but it wouldn’t matter because the information in the field is the same. 


You must do more, however, than merely list the fields on all records, because the 
computer would not know which fields were on each type of record. Furthermore, it 
would not know which record it was reading. To give the computer a means of identifying - 
records, you use record identification codes and record identifying indicators. 
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Specifying Record Identification Codes 


When you create records, you should include an identification code on each one. For 
example, to identify an item transaction record, you might place the code TR somewhere 
on that record. You can use any combination of letters and numbers for the identification 
code and you can place the code in any record positions. 


When you describe the record on the Input sheet, you use columns 21-41 to describe 
the record’s identification code and where the code is located on the record: 








| IBM Inerratoratusines . For each character in the code 
RPG INPUTSPE you must specify: 
= Punching | raphie |_| 
PR a Instruction | punch | | (1) Where in the record the 


Programmer 


character is found. 





(2) What the character is. 









Filename 





(3) The letter C to indicate 
character. 









Position 





Position Position 


Record Identifying Indicator 
ee 


Form Type 
Number (1-N) 
Option (O} 
Character 
Character 





Sequence 
Not (N) 














8 9 10 11 12 13 14/15 16]17]18419 20]21 22 23 24|25] 26|27| 28 29 30 31 3134135 36 37 38)3¢ @) \f the code requires that a 


TLL AEN LLL ee 
h t ; 
CECE ELLER LT PELL (I Chahacies Mute nt Pel preeiit 
enter N before the character. 





sTeTe 





You can specify a code of up to three characters on one line. If your code contains 
more than three characters, use the next line and the word AND in columns 14-16. 
Figure 14 shows some examples of how to specify record identification codes. 
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Codes ; Filename 


Position 


Record Identifying Indicator 
oe 


Number (1-N) 
Option (0) 
P = Packed/B 





eer? CECE PEE 
P FEE ress peer 
HOw FESR AEE 


1A in positions 95, 96, —————__-___—> 


ee le 
Sf a 
a 
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Figure 14. Valid Specifications for Record Identification Codes 








Record Identification an 
| Fide tecton | Location 


From 
3/44 45 46 47/48 49 60 61/52}52 


Decimal +i 
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Specifying Record Identifying Indicators 


You specify a record identifying indicator in columns 19-20 for each record type used 
in the job. Record identifying indicators are numbered 01-99. Use a different number 
for each record type. 


A record identifying indicator is specified on the same line as the identification code. 

All fields for the record are then listed, starting one line below the identification code 
and identifying indicator. The file name need be specified only once, on the specification 
line describing the first record in the file: 


IBM International Business Machines Corporation Form X21-9094 
,. 


Printed in U.S.A. 
RPG INPUT SPECIFICATIONS 


ican ing [oraoric | | | | | | [ | identifi 
Punching identification 
Popen rewston [owen ETE ET I 


Programmer 


75.76 77 78 79 80 


Sterling 
Sign 
Zero | Position 


Filename Field Name 


Record {dentifying Indicator 
C27 

Decimal Positions 

Matching Fields or 

Chaining Fields 

Field Record Relation 


Sequence 
Option {OQ} 


Two record types from the master file are described here. One record type is identified by 
the code CA in positions 1 and 2. It is assigned record identifying indicator 01. The other 
record type, which is assigned record identifying indicator 02, is identified by ST in positions 
1 and 2. Note that no file name is used for the second record type. The compiler assumes 
that this record is in the master file because MASTER was the last file name given. 





After reading a record, the program checks the identification codes to determine which 
record it has read. When it finds a match between the code on the record and the code 
stored from the Input sheet, it turns on the record identifying indicator associated 
with that record. This is the program’s way of remembering which record it read. 


Record identifying indicators can be used to condition calculations, output records, or 
output fields. In this way, the program performs the proper operations for each different 
record type. 


Record identifying indicators must be assigned even when there is only one record type 


‘in a file. If you do not use them, the compiler prints a message telling you that record 
identifying indicators have not been assigned. 
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When you use record identifying indicators to condition all calculation and output 
operations, you are assured that these operations are done only for appropriate records. 
If you do not use these indicators, all operations will be done on all records. 


The record identifying indicator should also be used to condition detail output records. 
This prevents detail lines from being written on the first cycle. If the detail line is not 

~ conditioned by a record identifying indicator, any constants you specified on the 
detail lines would be printed even though the first record had not been read. 


Specifying Record Type Sequence 


Sometimes records must be in a particular order within a record-type group, but at other 
times the order makes no difference. When records need not be in a particular order, 
enter two alphabetic characters in columns 15-16. You should use different alphabetic 
characters for each record: 












Record Identification Codes 






Field Location 


; Field N 
‘From 
44 45 46 47/48 49 50 51|52|53 54 55 & 







Binary 












Filename 





Record Identifying Indicator 
** 


Number (1-N) 
Decimal Positions 


Form Type 
Option (O} 





Sequence 








OORDH ER ARE ERR ERR REE 
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If the records must be in a specific sequence, you must make entries in columns 15-18: 





IBM 


| Columns 15-16 (Sequence) contain numeric entries (01-99). 
The sequence entries must be in numeric order. 


Date 
Program 


Programmer 


(2) Column 17 (Number) tells how many records of this type to 
expect in the record-type group: 


1 = One and only one 
N = One or more 


Filename 


Number (1-N) 


Option (O) 
Record Identifying Indicator 
+ 


® 
a 
> 

e 
E 
= 
S 

uw 


Sequence 


@) Column 18 (Option) indicates whether the record type is 


TTT VT ep required in the record-type group: 
og HA RAH | 


Blank = Record type is required 
O = Record type is optional 





Columns 15-16 should have an entry for every record type specified even if there is only 
one type per file. If you fail to use a sequence entry, the compiler prints a message 
saying that no entry was made in columns 15-16. 
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Job 5: Using Record Identifying Indicators To Process Different Record Types 


JOB DEFINITION 


Print a Stock Status Report. This report is printed whenever the inventory is updated. 
It gives detailed information on all active merchandise. The first line for each item in 
the report shows standard descriptive data for the item: item number, item description, 
quantity on hand, and quantity on order. This information is taken directly from the 
input record. | 





Subsequent lines give the detail on current transactions involving the item: sales to 
customers and receipts from suppliers. This information is also taken directly ou 
input records. 


Quantities remaining on hand and on order are calculated for each item and printed after 
all transactions for the item are listed. 


JOB REQUIREMENTS 


Input: An inventory file consisting of three different types of records. Formats of the 
three record types are: 


Card Name TEM ASTER RECORD 
i T2}3f4{ se} 7] 8] 9] if fie] fis] 15] ie] 7 [13 [19 [20 [21 [22] 23 [es [e5]26 [27 [2s [9 ]30 [31 [32]33 134]35]36]37 [38 ]39 [40 | 41 [42]43]44]45 


Print 


! 
i 
t 
Print Line 1 ! 
Tier 1 ; : T 
' 
' 


: ITEM — (TEM , QUANTITY | QUANTIT 
Punch Ww RIPT {o 
we at HUBER D ese cosit Dib eens 


Program “brie PETE] Tw] Ol mm] 0 2 | ua] ||| 55 [10] 0] ea] ee 


Control 
Card 


CardName ISSUE RECORD 
COTY ST SST ST eT aT aT THT eT PT eso rT oT TSS eT TT ( 











Print 
Print Line 1 Pi 
Tier 1 ' T 

a | ITEM. [Quant ! 

&| NUMBER | SoLD | 

S ' 

' 
Program le{7{s[9]iofu fie] i3fia | [25] 26] 27] 28] 29] 30 [31 [32] 33 | 34] 35]36]37 [38] 39) 


140 | 41 [42] 43 [44/45] 
Control 
Card 


Card Name RECEIPT RECORD 
LiTe}sTsTsTel i] s[ fof ufre] sfisf is eli |i fof [x] es]ee]ses] er |e folso] 3 [32s [3] 35]35[3 [sso 40] 4 foz les leas 


Print 


Print Line 1 
Tier 1 





Program |1|2[3]4| SST | ee mT a 26] 27] 26] 29] 30 [31 [32]33 [34 | 35]36|37 138] 39] 40 41 |42] 43/44/45 


Control 
Card 


The file is organized in ascending order by item number. For each item one master 
record is required. Issue and receipt records are optional. When present, however, 
there may be any number of each. Records for each item are in this order: 


1. Item master 


2. Issue 
os Receipt 
Processing: . 


@ Find total number of each item sold. To do this, perform the calculation 
ISSUE + TOTAL ISSUE = TOTAL ISSUE for each issue record. 

@ Find total number of each item received. Perform the calculation RECEIPT + 
TOTAL RECEIPT = TOTAL RECEIPT for each receipt record. 

@ When all transaction records for one item have been read, find new quantity _ 
onhand (ONHAND + TOTAL RECEIPT - TOTAL ISSUE = NEW ONHAND) 
and new quantity on order (ON ORDER - TOTAL RECEIPT = NEW ON ORDER). 


Output: A stock status report printed on a 96-position printer: 


STOCK STATUS REPORT 


ITEM NO DESCRIPTION QUANTITY QUANTITY TRANSACTION 
ON HAND ON ORDER QUANTITY 


411116 B500 TWIN SOCKET BLUE 458 500 
ISSUE 50 
RECEIPT 500 


411122 B506 SOCKET ADAPT BRN 
ISSUE 
ISSUE | 
ISSUE 


411173 Ci51C SIL SWITCH IVORY 
RECEIPT 


411254 A210 PULL CORD GOLD 
ISSUE 
ISSUE 
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This Printer Spacing Chart shows the format of the report: 





‘ 
' 
ee Fold back at dotted line. 
' 
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Two files are used for the job: one input and one output. In the job description 
given, the output file was associated with the printer, but the input file was not 
associated with any device. Darkened columns show required entries; the entry 
depends on the device being used. 





acking Sequence 


Shillings 
Shillings 





File Description Specifications 


Mode of Processing File Addition/Unordered 


= ote Length of Key Field or Extent Exit Number of Tracks 
File Designation of Record Address Field for DAM for Cylinder Overflow 


File Type 


Name of Number of Extents 
Label Exit 


End of File : . Record Address Type 


Type of File 
i uence : 
Filename Seq Organization 
File Format or Additional Area 


Symbolic 


Labels S/N/E/M 


Core Index 
File 
Condition 


| Continuation Lines | Continuation Lines 


Entry 
54 55 56 57 58 59]60 61 62 63 64 65 


1/0/U/C/D 


9 10 11 12 13.14 ]15 


TWAT | Ar! a 
puT Aur | 0 9a 


| | {8 _ Extension Code E/L 
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Binary 


Sterling 
Sign 
Zero | Position 


Filename Field Name 
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2 = By = 33) 
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Ble|s s 3 ef! 2 jus {Minus| or 
215 2 E se 
Els} 9 a = of] 3 
Ss}a] 8g g 9 a 
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pun} 0 pA A! | it 
LT TT bile 
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eal 
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re 
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PI 
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|| fo S4 
|| Ea 

eS SS) 
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Z 
fe 
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fe 
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PREP REE EEE 
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sre ales oe ft ede ree 
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WIN] Blt Gqgi@ SIN] | 
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go Ra gees 
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|| 


emu CCE 
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All three types of records in the input file must be described. Since they are to be arranged in a certain sequence 

in the record-type group, they are described in the order they will be read. The first record in the group is the 

item master record (identified by M in position 1). The 01 in columns 15-16 indicate that this record is first. The 
record is required (column 18 is blank) and there must be only one per group (1 in column 17). It is assigned record 
identifying indicator 10. All fields found on the record are then described. Note that the record code appears asa_itgx 
field on the Record Layout Form. However, on the Input sheet it is not described as a field but as the record identi- 


fication code. 


atte PEPE 


The second record in the group (02 in columns 15-16) is the issue record, identified by | in position 1. There may 
be several of these records per group (N in column 17). The record is optional (O in column 18). The record 
identifying indicator 20 is assigned. Fields on the record are then described. The third record in the group is 
described as were the previous two. 


{TEMNO field on the item master record is assigned as the control field. When it changes, all transaction records 
for the item number have been processed. 
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Factor 1 Operation Factor 2 i : . Comments 
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To update the quantity on hand and on order, total number issued (TOTISU) and total number 
received (TOTREC) for each item is needed. Quantity sold is found only on the issue record. 

Thus, the calculation to find TOTISU is done only when the issue record is read. Record identifying 
indicator 20 was assigned to the issue record. When 20 is on (an issue record has been read), we can 
calculate TOTISU. Thus, the operation (line 01) is conditioned by indicator 20. The operation to 
find TOTREC can be done only when a receipt record is read. The operation (line 02) is conditioned 
by 30, the record identifying indicator assigned to the receipt record. 


4 
| 
2| 
a 
a 
S| 
6 
7 
8 
9 
c 
1 


Calculations to update quantity on hand and on order are total operations and can be done only 
after all transaction records forthe item have been processed. They are conditioned by L1 which 
is set on when a new item number is read. 


3 
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It is conditioned by 30. 
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ro] | Output Indicators 
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Ho 


It is conditioned by 10, which is the record identifying indicator assigned to the item master 


record. The second detail line prints when an issue record is read, so it is conditioned by 20. The 


third detail line prints when a receipt record is read. 





Filename 


Heading lines are to print on every page. They are conditioned by 1P and OV used in an OR relationship. 
Not all detail lines are to print for each record. The first should be printed when the item master record | 


These words are not fields so they are entered as constants in the appropriate detail lines. Note that 


The Printer Spacing Chart shows that the words ISSUE and RECEIPT are to print in the detail lines. 
asterisks indicating totals are also entered as constants in the total line. 


is read. 





Programmer L 
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RESULTING INDICATORS 


Sometimes your decision to do a certain operation is based on the result of a previous 
operation. Resulting indicators allow you to specify which operations you want done and 


the conditions under which the operations are to be done. Resulting indicators can be ° 
used to determine: 


1. Whether a result is larger, smaller, or equal to a predetermined number. 


2. Whether a certain result is plus, minus, or zero. 


Program Cycle Operations 


Figure 15 shows the operations in the program cycle associated with resulting indicators. 
Resulting indicators are set when the associated calculation operation is performed. This 
means that resulting indicators can be set either at detail or at total calculation time. 


Resulting indicators are not set off automatically. They change their setting only at the 
time a calculation is performed. For example, if a resulting indicator is set on by a detail 
calculation, it retains this setting until the next time it is used as a resulting indicator. 


START 





Perform heading 
operations. 
Perform detail 
output operations. 
If overflow line 
has been reached, 
set on overflow 
indicator. 






Perform detail 
calculations. 


Set resulting 
indicators. 













Move data from record selected at 
beginning of cycle into processing area. 


Set off control 

level indicators. 

Set off record 
identifying indicators. 








Overflow indicator on? Yes, do 
overflow operations and set 
overflow indicator off. 

. ; Read a record. 








LR indicator on? Yes, end of 
‘ Last record? Yes, set on 
job has been reached. 

control level and LR 
indicators and go perform 
total calculations. 





Perform total output operations. 

If overflow line has been reached, 
set on overflow indicator. Set on record identifying 
indicator. 














Perform total 












calculations, Change in contro! 
Set resulting field? Yes, set 
on control level 






indicators. ved 
. indicators. 






Figure 15. Program Cycle Operations for Resulting Indicators 
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RPG I! Specifications 


The type of operation used to check the result field depends on the type of result being 
checked. If you want to determine whether the result field is larger, smaller, or equal 

to a certain number, you must use a compare (COMP) operation. If you want to 
determine if the result field is plus, minus, or zero, use an arithmetic (ADD, SUB, MULT, 
DIV) operation. You can specify resulting indicators 01-99 on these specifications sheets: 


Form X21-9093 
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Resulting indicators are assigned at (1) , then used to condition calculation 
operations at @) and output operations at @) 


The entries for resulting indicators and record identifying indicators are the same. Be 
careful not to use the same indicator for both of these purposes in the same program 
because the computer cannot distinguish between them. 
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Using the Compare Operation 


In many jobs you need to know whether a field is greater than, smaller than, or equal 
to another field. RPG II language has an operation code, COMP, which allows you to 
compare fields. The compare operation requires entries in these columns on the 
Calculation sheet: 


Indicators 
i kroingti” 7) . . 
| 2| {ori Pod © Factor 1 (either a field name or constant) 
Factor 1 ; ; © Factor 2 (either a field name or constant) 


@ Resulting indicators 





Tech 
eo tee ciele 


When compared, Factor 1 and Factor 2 can be in one of three relationships: 
e@ Factor 1 can be greater than Factor 2. 

@ Factor 1 can be less than Factor 2, 

e Factor 1 can be equal to Factor 2. 


You indicate that a test should be made to check for one, two, or all three of these 
relationships by entering indicators in the appropriate columns: 


Resulting 
QQ) A resulting indicator entered in columns 54-55 
tells the computer to determine if Factor 1 is 
greater than Factor 2. 


@) A resulting indicator entered in columns 56-57 
tells the computer to determine if Factor lis 
less than Factor 2. 


@) A resulting indicator entered in columns 58-59 . 
tells the computer to determine if Factor 1 is 
the same as Factor 2. 





The test you specify is made each time the COMP operation is executed. However, 
the resulting indicator is set on only when the proper relationship exists. If you 
entered indicator 50 in columns 54-55 to test whether Factor 1 is greater than Factor 
2, indicator 50 would be set on only when Factor 1 is greater than Factor 2. 
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When testing for more than one condition, you can use the same or different indicators 
in these columns. If you intend to do different operations for each of the three conditions, 
enter a different resulting indicator to test for each condition on the Calculation sheet: 


Resulting 
Indicators - : {ndicators 
| Arithmetic —_| 


Factor 1 Operation Factor 2 : Comments 


Control Level 
{LO-L9, LR, SR} 


63 64 65 66 67 68 69 70 71 72 73 74 


B33 TT ane Te Tis 


A Clad Ae Ve ay Eli 
RA ara AG PANACEA 
aS 
, PTT TT TT TT 
In this operation, the contents of the field MAX is compared to the HEH 
contents of the field TOTAL. If MAX is greater than TOTAL, indicator eta 

_ 11 is set on and the operation in line 02 is done. If MAX is less than Pee Te a 
TOTAL, indicator 22 is set on and the operation in line 03 is done. If Pa ALE el 
MAX is equal to TOTAL, indicator 33 is set on and the operation in Ee TI 
line 04 is done. . Be Pe 

7 PLT TT LLL 


If you want to do the same operations when either one of two conditions exists (Factor 
1 is greater than Factor 2; |Factor 1 equals Factor 2), you could use the same indicator 
to test for both conditions on the Calculation sheet: 


Resulting 
Indicators 


Factor 1 Operation Factor 2 f - Comments 


Control Level 
{LO-L9, LR, SR) 


WO [= 


a 
= 


N 


These operations are used for finding the amount of discount to give 
customers. If the customer purchases goods worth $5000.00 or more, 
he receives a 3% discount, but if he purchases goods worth less than 
$5000.00, he receives only a 2% discount. TOTSLS is first compared 
to $5000.00. if TOTSLS is less than $5000.00, indicator:15 is set on 
and the operations in line 02 are performed (2% discount is calculated). 
However, if TOTSLS is either equal to or greater than $5000.00, indi- je 
cator 10 is set on and the operation in line 03 is performed (3% fe 
discount is calculated). | 


i 
ee ea le 
afer Bese eI ey ee ee fee aE [ees hee 


We explained previously that constants can be used in calculation operations, but they must 
be numeric constants. In a COMP operation, however, constants can be either alphameric or 
numeric. Rules for using alphameric constants as Factor 1 or Factor 2 are a little different 
from those for using numeric constants: 


Rules for Numeric Constants Rules for Alphameric Constants 


@ A numeric constant can be any @ An alphameric constant can be any 
combination of digits 0-9. Decimal combination of characters. Blanks 
points and signs can also be are also valid. 
included. 


The maximum length of a numeric The maximum length of an alpha- 
constant is 10 characters, including meric constant is 8 characters. 
sign and decimal point. 


& 


Numeric constants must not be Alphameric constants must be 
enclosed in single quotes (’). enclosed in single quotes (’). 





When you use the COMP operation code, remember to always compare two numeric 
fields or constants or two alphameric fields or constants. You cannot compare a numeric 
field or constant to an alphameric field or constant. 


Using An Arithmetic Operation 


You can test the results of an arithmetic operation (ADD, SUB, MULT, DIV) for plus, 
minus, or zero by entering resulting indicators in the appropriate columns on the 
Calculation sheet: 


(1) A resulting indicator entered in columns 54-55 
tells the computer to determine if the result 
field is positive (plus). 











Resulting 
Indicators 


Arithmetic 


(2) A resulting indicator entered in columns 56-57 
tells the computer to determine if the result 
field is negative (minus). 






Ey 
CAG 
PTL LT 


(3) A resulting indicator entered in columns 58-59 
tells the computer to determine if the result 
field is zero. 






The tests you indicate are performed each time the operation is executed. However, 

the assigned indicator is set on only if the field satisfies the condition tested. If you 
entered indicator 99 in columns 54-55 to test the result field for plus, indicator 99 would 
be set on only if the result field were plus. 
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Again, as with the COMP operation, you can test for one, two, or all three conditions at 
the same time. When testing for more than one condition, you can use the same or differ- 
ent indicators in these columns, If you intend to do different operations for each of the 
three conditions, enter a different resulting indicator to test for each condition: 
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FIELDC is tested for all-three conditions. If the field is positive, 
indicator 10 is set on and the operation in line 02 is performed. 

If the field is negative, indicator 25 is set on and the operation in 
line 03 is done. If the field is zero, indicator 49 is set on and the 
operation in line 04 is done. 





~[=[Tefelefolfefofeolofol» 
= [oe | see fe | eee pe Tom > 


If you want to do the same operations when the result field meets either one of two 
conditions (plus or zero, minus or zero), you could use the same indicator to test for 
both: 
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el a OY EY 


Program 


Programmer 


Factor 1 Operation Factor 2 


Control Level 
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FIELDC is tested for three conditions, but only two indicators . 

~ are used. If FIELDC is either plus or zero, indicator 10 is 
turned on and the operation in line 02 is performed. However, 
if FIELDC is minus, indicator 20 is set on and the operation in 
line 03 is performed. 





Job 6: Using Resulting Indicators To Test Contents Of Result Fields 


JOB DEFINITION 


Print a stock status report similar to the one in Job 5. The only difference is the addition 
of maximum and minimum balances. Item master records usually include the maximum 
and minimum on-hand quantity for all items. These figures are kept so that checks can be 
made, whenever the inventory is updated, to determine if quantity on hand is within the 
limits set. 





The first line for each item in the report shows standard descriptive data for the item: 
item number, item description, quantity on hand, quantity on order, maximum and 
minimum balances. Subsequent lines give the detail on current transactions involving 
the item. Quantities remaining on hand and on order are calculated for each item and 
printed after all transactions for the item are listed. Whenever shipments reduce stock 
on hand below the predetermined minimum balance or whenever receipts push the 
quantity on hand above the predetermined maximum, an exception condition is noted 
on the report. 


JOB REQUIREMENTS 





Input: An inventory file consisting of three different record types. Formats of the three 
record types are: 


Card Name LTE, M S E} co D 
Pif2{sl4{sfet7] a] aif ufie}is{ss] isl ie] iz [ia fio [20] ai ]za[23]2s [25 [2627 [os [29 [30 ]3i [32]33 [34] 35 [36]37 [38 [39 [40 ]4i [42 [43] 44 [as [46 [47 [48 [49150 [51 [52 [53 ]54[55]s6]57158/59] 6 





Print 
Print Line 1 Print Line 2 
Tier 1 Tier 2 
! AX.| MIN. 
4 (7M DESCRIPTION i ta Nee et : 
u a] MUMBER cosiT HAND lorDER BAL. BAL. 
Program ea 15/6 {71819 |iol i i2] 13} t4 |15 Jie | 17] 18 | 19 [20] 21] 22] 23 | 2425/26 | 30] 5 |e 350 9] 0 [0] 0 ea [06] om [50 [a oo [ooo] 550 [a0 


Gard i LEELA 
Card 
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Card Name Ss E CO D 
erecta ae hae et Lemon conepen 
Print 


~1TEM — |QUANTI 
WVUM BER SoLD 
9 

VU : 


Program [7 8 [9 Tio] 31 [32|33 [34] 35]36]37 [38] 39]40] 41 142] 43 [44 [45 [4647 [48 [49] 50 [51 [52153 ]54]55]56]57 58 [59]60 


Preoran tf 2p sla [sys| [ut [2 | 134 Tis [te [17 [18 [19 [20] 21 [22] 23] 24] 25] 26] 27] 28] 29] 30 36] 
ontro e 
Card . EEE EEL AEE EET TTT ee Ty a 


Card Name EIP co | 
pi 60 
Print 


Print Line 1 
Tier 1 


Print Line 2 
Tier 2 


Print Line 1 Print Line 2 


Tier 1 ! Tier 2 
ITEM (QUANTIT | 
a ' 
“|e WuMBER |Recelvel | ’ 
9 I 
VU 


Program 131456} 7 [8] fio fn fie | 3) 


[tf 2] iz | 13414 [15 [16] 17 [18 [19 [20] 21 [22/23] 24]25| 
Control 
ce LITTLE EE ELE 
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|| 
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The file is organized in ascending order by item number. For each item, one master 
record is required. Issue and receipt records are optional. When present, however, 
there may be any number of each. Records for each item are in this order: 


Te Item master 

2. Issue 

3. Receipt 
Processing: 


@ Find total number of each item sold. To do this, perform the calculation 
ISSUE + TOTAL ISSUE = TOTAL ISSUE for each issue record. 

@ Find total number of each item received. To do this, perform the calculation — 
RECEIPT + TOTAL RECEIPT = TOTAL RECEIPT for each receipt record. 

@ When all transaction records for one item have been read, find new quantity 
on hand (ON HAND + TOTAL RECEIPT - TOTAL ISSUE = NEW ON HAND) © 
and new quantity on order (ON ORDER - TOTAL RECEIPT = NEW ON ORDER). 

@ Compare the new quantity on hand to maximum and minimum balances to 
determine if an exception condition should be noted on the report. 
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Output: A stock status report printed on a 96-positon printer: 


STOCK STATUS REPORT 


ITEM NO DESCRIPTION QUANTITY QUANTITY TRANSACTION 
ON HAND ON ORDER QUANTITY 


411116 B500 TWIN SOCKET BLUE 458 500 
ISSUE 50 
RECEIPT 500 


411122 B506 SOCKET ADAPT BRN 
ISSUE 
ISSUE 
ISSUE 


411173 CL51C SIL SWITCH IVORY 
RECEIPT 


411254 A210 PULL CORD GOLD 
5) 





This Printer Spacing Chart shows the format of the report: 


e $ ; 616 717 z ; 
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JOB SPECIFICATIONS § 
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Calculations in lines 01-05 are needed to update quantity on hand and quantity on order. 

See Job 5 for an explanation of these entries. After new quantity on hand (NEWONH) 

has been calculated, it is compared to MAX to see if it exceeds the maximum limits set 

(line 06). Indicator 99 in columns 54-55 specifies a test to determine whether Factor 1 

(NEWONH) is greater than Factor 2 (MAX). If NEWONH is greater, indicator 99 is set 

on. In line 07, NEWONH is compared to MIN to see if quantity on hand is less than the 

minimum set. If it is, indicator 88 is set on. 
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FIELD INDICATORS 


Field indicators, like resulting indicators, are used to test the contents of a field and to 
condition operations based on the results of the test. 


Program Cycle Operations 


Figure 16 shows the operations in the program cycle associated with field indicators. 
Note that input fields are tested and field indicators are set to reflect the result of the 
test at the time data is moved into the processing area. Field indicators are not set off 

at the end of the program cycle. Ifa field indicator is set on when data is moved into 

the processing area in the first cycle, it is not reset until data is moved into the processing 
area in the second cycle. 


START 






Perform heading 
operations. 
Perform detail 
output operations. 
If overflow line 
has been reached, 
set on overflow 


Perform detail 
calculations. 
Set resulting 
indicators. 



























Move data from record selected at indicator. 
beginning of cycle into processing area. 
Set field indicators. Set off control 
level indicators. 
Set off record 
identifying indicators. 
Overflow indicator on? Yes, do 
overflow operations and set 
overflow indicator off. 
Read a record. 
LR indicator on? Yes, end of 
job has Besn:feached Last record? Yes, set on 
5 control level and LR 
indicators and go perform 
total calculations. 
Perform total output operations. 
If overflow line has been reached, 
eton indi : ; Seca 
set on overflow indicator Set on record identifying 


indicator. 













Perform total 
calculations. 
Set resulting 
indicators. 


Change in control 
field? Yes, set 
on control level 
indicators. 








Figure 16. Program Cycle Operations for Field Indicators 
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RPG II Specifications 


Make these RPG II specifications when you use field indicators: 


International Business Machines Corporation 
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Stacker Select 
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Control Level 
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Program 


Programmer 


Output Indicators Edit Codes 
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| to Print, =| Print 
ad 


Yes 
z : 
Cc ye 
DIM 


Constant or Edit Word, 


End 
Positon 


Filename Field Name 


Blank After (B) 
Packed/B = Binary 


Field indicators are assigned at a) . They may be used to condition 
calculation operations at and output operations at 


98 


OT 


Form X21-9094 
Printed in U.S.A. 


75 76 77 78 79 80 


Program 
Identification 


Field 
Indicators 


Sterling 
Sign 
Position 


Field Record Relation 


EHH ep 


Form X21-9093 
Printed in U.S.A. 


75 76 77 78 79 80 


Program 
Identification 


Comments 


Form X21-9090 
Printed in U.S.A. 


75 76 77 78 79 80 


[TL 


Program 
Identification 


X = Remove 
Plus Sign 

Y = Date 
Field Edit 

Z = Zero 
Suppress 


Sterling 
Sign 
Position 





You can enter any one of the indicators 01-99 in columns 65-70 of the Input sheet to 
test an input field. You may assign indicators to test for three possible conditions: 


Field 
Indicators 









oa | 
ee TIT Tee 
COECE EEUU LT] eens 





A field indicator assigned in columns 65-66 
tells the computer to determine if a numeric 
input field is positive (plus). 


(2) A field indicator assigned in columns 67-68 
tells the computer to determine if a numeric 
input field is negative (minus). 


G3) A field indicator assigned in columns 69-70 
tells the computer to determine if an alpha- 
meric input field is blank or a numeric field 
is Zero. 
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Job 7: Using Field Indicators To Test Contents Of Input Fields 


JOB DEFINITION | 


Create an Aged-Trial Balance Report that lists: 





@ Name and customer number of all charge customers who have payments due. 
@ Amount due. 
@ Overdue balances. 


The customer master file, which contains records for all customers regardless of their balance, 


is used as the input file. The report is to show only those customers with payments due. Thus, 
information from customer records that contain a zero or credit balance should not be printed. 


JOB REQUIREMENTS 





Input: Acustomer master file consisting of one record type: 






Card Name 













Print Line 2 
' Tier 2 
CURRENT = DAYS 
|cuarces | DAYS OVER DUE 





OVERDUE | OVERDUE 










shammoratelgeasies wea eae uapatetont it 















[2] 3fa[sfel rials fiofn fie] fia [is [ie [17 fi [19 2 PEREEEE ES 





Processing: Check input balance due field for zero or credit balance (use field indicators). 
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Output: An aged-trial balance report printed on a 132-position printer. 


AGED TRIAL BALANCE 


CUSTOMER CUSTOMER LAST PAY DATE CREDIT CURRENT OVERDUE ACCOUNTS 
NUMBER NAME LIMIT CHARGES 30 DAYS 60 DAYS 


10867 ALLEN & CO. 2/16/70 15,000.00 6,919.77 376.58 


16535 ANDERSON AUTO SUPPLY 1/28/70 2,500.00 1,665.49 
17849 ANDREWS AND SONS INC 2/05/70 750.00 
18978 ARGONAUT ENGINEERING 12/27/69 2,000.00 2,111.30 611.54 


146.64 
312.13 


24743 BERKLEY PAPER CO 2/21/70 6,300.00 1,185.50 27652.45 1,400.05 


25271 BEST DISTRIBUTION CO 10/06/69 1,000.00 3.25 





This Printer Spacing Chart shows how the report is formatted: 
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90 DAYS 


90.44 
51.00 
762.19 
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JOB SPECIFICATIONS 
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Control Card Specifications 


Refer to the specific System Reference Library manual for actual entries. 


, MFCU Zeros 
nt Characters 


ao FormT 
8 Indicator Setting 


8 File Translation 


Darkened columns show required entries 
that depend on the input device used. 
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File Description Specifications 


File Type Mode of Processing File Addition/Unordered 
File Designation Length of Key Field or Extent Exit Number of Tracks 
9 of Record Address Field for DAM for Cylinder Overflow 
End of Fite Record Address Type Name of Number of Extents 
Type of File i Label Exit 
. Sequence . Symbolic 
Fitename a Organization ¥ é 
Core Index 
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Length Length Starting 7 
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Extension Code E/L 
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To prevent listing customers who have a Zero or credit balance, cata a Wal ME | Gee ELS 


we must know if the current charge field (CHARGE) or the (BL BeecAST PA 
overdue fields contain a plus amount. Indicators 96-99, speci- lala | dala HAR lg | 
fied in columns 65-66, test the fields for these conditions. These i 1 
indicators will be set on when the fields are plus. | SI¥ 
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IS. | 
Pf er 


S| 
| |e 
Note that the record identification code has been described a 
(columns 21-27) and a record identifying indicator assigned HH a 

lle 

| 

i 


(columns 19-20). This should always be done even though 


there is only one record type per file. 
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Sterling 
Sign 
Position 
Sterling 
Sign 
Position 


Form X21-9090 
Printed in U.S.A. 


Form X21-9090 
Printed in U.S.A. 
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Edit Codes 


Page 47 


Constant or Edit Word 
Constant or Edit Word 
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and overdue fields for a plus condition, are used 
to condition detail records. The record is to be 
printed when one of the fields is plus; that is, 
also used to condition the detail record. This 

a record type other than 01 (one that may 


have accidentally gotten into the file). 
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CONDITIONING OPERATIONS BY MORE THAN ONE INDICATOR 


In this chapter, you have learned about many different kinds of conditioning indicators: 
control level, first page, overflow, last record, record identifying, resulting, and field 
indicators. In many jobs you will use two or more conditioning indicators. Indicators 
used together can be in either an OR or AND relationship. 


You have already read about indicators in an OR relationship. You learned that if an 
_ operation can be done when either one of two conditions or both conditions exist, you 
can specify the conditioning indicators like this: 





Internatic 


RPG OUTPUT 


me Punching Grar 
Program Instruction Pune 


Programmer 
Output Indicators 


_~ This line is written when either 
indicator 1P or OV is on. 


ieee This line is written when either 
indicator 10 or 20 is on, or when 
both are on. 





Ofololo}oto fa FormType 


In some systems, conditioning indicators can be used in the OR relationship on both 
Calculation and Output-Format sheets. In others, you can specify the conditioning 
indicator using the word OR only on the Output-Format sheet. 
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If you specify two or more conditioning indicators on one line, they are in an AND 
relationship. The AND relationship means that all conditions must be satisfied before 
the operation will be performed: 





IBM 


Date 
Program 


Programmer 


Factor 1 


c 
3 
a 


Control Level 
(LO-L9, LR, SR) 


ps [oleate Tels [= {> 
Pail eT ha 
fo felolopofetoa le FormTtype 


lefeloletotofolu 


International Busi 


RPG CALCULAT 


recy |S 


Operation 


A 
4 


#7 





a 
pa fs a] 
ee 





e 


Date 
Program 


Programmer 


Filename 


ofofofoto fa Formtype 


International Bu 


RPG OUTPUT - F 


Punching Graphic 
ee ee 4 


Field Name 





This operation is performed 
when 10 is on and 20 is not on. 


This operation is performed 
when L1, 10, 15, and 99 are all on. 


This operation is performed 
when L1 is on and 15 is not on. 


This detail line is written when 
15 and 10 are both on. 


This total line is written when 
L1, 10, and 15 are all on. 
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If your calculation or output operation must be conditioned by more than three indicators, 
additional indicators can be specified on the next line if AND is entered in columns 14, 15, 
and 16 of the Output-Format-sheet or AN is entered in columns 7-8 of the Calculation 
Sheet: 





IBM _ International Business Machines Corporation 
° RPG OUTPUT - FORMAT SPEC 

acess rei, Foe |} t 

a a KO 


Programmer 


eae 2 Five indicators used in an AND relationship 
ioc condition this detail record. Three indicators 
are specified on one line; the remaining are 
specified on the following line with the word 
AND in columns 14-16. Indicators 10, 11, 
12, 15, and 16 must all be on before the 
detail line will be printed. 





IBM ‘nternational Business Machines Corp< 
: RPG CALCULATION SPE( 

a ro = 

Program saad [Punch | f [| 


Programmer. 


Indicators 


Factor 1 Operation Factor 2 


Control Level 
{LO-L9, LR, SR} 


This calculation operation is done only if 
indicators 25, 30, 31, and 90 are on and 
91 is not on. Note that the operation is 
specified on the AN line. 





Some systems allow the use of AN on the Calculation sheet; others do not. 


106 


Chapter 3: The Programmer’s Job 


Analyze the job. 
Determine how the job can be done in RPG II. 
Write the RPG II specifications. 


Prepare for compilation by completing the specifications sheets, desk checking them 
for accuracy, and having them punched into cards. 


Compile the source program. Be certain that your source program is free of errors 
by checking the listing. 


Execute the job. 
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DETERMINE THE JOB REQUIREMENTS 
Assume that you are told the following things about a job: 
e@ An invoice is to be prepared like that shown in Figure 17. 
e The input file contains two types of records: name/address records for all customers 
who made purchases on credit during the month and transaction records for each 


item purchased by the customers during the month. The name/address and trans- 
action records look like this: 


card Name NAME/ADDRESS RECORD 
—————————eee—_—_—E——_e_ 


Print Line 1 ! Print Line 2 


Tier 1 i Tier 2 
! 
I 
Punch | NAME ADDRESS Lin€é 1 ADDRESS 
! 


Program STA nie oe Pry if 0 | || 6 5 0] oo oe aS a Je |S [6255] 5 5 T5850] 


Control 
Card 


97 {98} 99 0010 [102]t03}io4}ios iosfio7 fos fosfinoftnafin2}in3 fin firs fis fire [rg ns}izo}at Jize fiesfica ies feshizz|iea 





61 [62 {63 ]64]65]66]67]68 ]éo70 [ri [72 [73 [r4 [75 [76 [7778 [29 [e0]si [e2]s3 [e4]65]ee]87 |e] s0]s0]91 [92] 93]94]35] 96) 


Print Lines 3 and 4 
Tier 3 


nee 2 Appress LINE 3 


él AGS Se EERE 


SHIPPING CODE C EITHER /,Z, oR3 


Card Name TRANSACTION RECORD : 
Di Fee ciate natant aserans geen 6 


pw 


Print Line 1 i Print Line 2 
i 


Tier 1 Tier 2 
ITE UNIT 
Punch Tenn DESCRIPT (ON cur pe 
9 Num BER 


Fr erect ica at ae 58|59|6¢ 
al 
Card 
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@ The input file is organized so that all transaction records for a customer follow the 
customer’s name/address record: 


Customer A—— 





<< Name/Address Record 


@ There will always be one name/address record for each customer, but there may be 
one or more transaction records per customer. 


INVOICE 
ACCOUNT NUMBER 09621 


NAME SMITH MANUFACTURING 
ADDRESS 13620 9TH ST NE 


BERNALILLO 
NEW MEXICO 56120 


SHIPPING INSTRUCTIONS BY AIR 
ITEM NUMBER DESCRIPTION QUANTITY UNIT PRICE AMOUNT 


439167 SHEARS 100 27.56 2,756.00 


629408 GASKET CORK 3000 3,450.00 


102139 SPRIDGET WHITE 50 37,500.00 


INVOICE TOTAL 212,157.92 





Figure 17. Sample Invoice 
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e@ Standard computer paper is to be used. Invoices should look like this: 
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Your first step is to analyze the problem and decide what processing must be done to 
get the desired results. Always keep in mind how things are done using RPG II. In 
your analysis of the job, you would probably think of these points: 


@ Information for the first part of the invoice is taken from the name/address record; 


information for the second part (list of transactions) is taken from transaction records. 


e In order to print shipping instructions, the shipping code recorded on the record 
must be determined: 


1 = By truck 
2 = By rail * 
3 = By air 


@ AMOUNT and INVTOT (invoice total) must be calculated because this information 
is not on input records. These calculations must be done for all transaction records: 


QTY x PRICE = AMOUNT 


‘AMOUNT + INVTOT = INVTOT 


@ INVTOT should be printed only after all transaction records for one account have 
been processed. 


@ The invoice for each customer must be on a separate page. This means that forms 
must advance each time a new customer name/address record is found. It is possible 
that one customer has purchased so many items that they cannot be listed on one 
page. In this case, forms should advance when the end of a page is reached. When 
an invoice includes more than one page, headings should be printed on all pages. 
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DETERMINE RPG II PROGRAM CYCLE OPERATIONS 


After you have carefully analyzed the job, determine what RPG II specifications and 
program cycle operations you'll need. For example, consider the following: 


e Different record types are used. This means that record identifying indicators must 
be specified to tell what to do for each record. 


e@ The transaction code must be determined. One way to do this is to compare trans- 
action code to 2. Through the use of resulting indicators, you can determine if the 
code is equal to, less than, or greater than 2. 


e INVAMT is printed only after all transaction records for one account have been 
processed. This is a total operation, done only after a group of records has been 
processed. Therefore, control fields and control level indicators must be used to do 
a total operation. The account number field can be used as the control field. 


@ Forms should advance each time a different name/address record is encountered or 
whenever overflow occurs. Thus heading lines must be conditioned by a record 


identifying indicator and the OV indicator. 


If the indicators and steps just listed are used, the RPG II program cycle would include 
the steps shown in Figure 18. . 
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START 





© 
Perform heading 
operations. 
Perform detail 
output operations. 
If overflow line 
has been reached, 
set on overflow 
- indicator. 






© 
: Perform detail 
calculations. 
Set resulting 
indicators. 


















Move data from record selected at 
beginning of cycle into processing area. 
Set field indicators. 





Set off control 
Jevel indicators. 

Set off record 
identifying indicators. 





Overflow indicator on? Yes, do 
overflow operations and set 
overflow indicator off. 





Read a record. 





LR indicator on? Yes, end of 


acer en Last record? Yes, set on 
job has been reached. 


control level and LR 
indicators and go perform 
total calculations. 





Perform total output operations. 
If overflow line has been reached, 
set on overflow indicator. 





Set on record identifying 
indicator, 














Perform total 
calculations. 
Set resulting 
indicators. 





Change in control 
field? Yes, set 
On control level 
indicators, 


QQ) Did Account Number change? | 


(2) Print total only after all transaction records for one customer 
have been processed. 


G3) Print all heading lines if overflow occurs. 


@ The operation to find shipping instructions can be done only 
for name/address record. The operations to find AMOUNT and 
~ INVTOT can be done only for transaction records. 


G) Headings for the invoice can be printed only when name/address 
record is read and detail lines only when transaction records are 
read. 


Figure 18, Program Cycle Operations for Sample Job 
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WRITE THE SPECIFICATIONS 


After you have analyzed the problem and determined how to solve it using RPG II, 
you can write the specifications. Figure 19 shows the specifications for the job. 
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Figure 19 (Part 1 of 3). Specifications for Sample Invoice Program 
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Figure 19 (Part 2 of 3). Specifications for Sample Invoice Program 
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Figure 19 (Part 3 of 3). Specifications for Sample Invoice Program 
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DOCUMENT THE PROGRAM 


An important part of every programmer’s job is to explain his program. This documenta- 
tion provides information for people who will run the program and for programmers 

who may later need to alter or update it. Documentation is also useful to you. It is 

not always easy to remember what every program you wrote does. Reading documentation 
is a much easier way to recall the program than figuring out each instruction. 


Documentation consists of: 

1. Telling generally what the program does. 

2. Describing input and output. (Record Layout Forms and Printer Spacing Charts 
are an excellent means of doing this.) File names and field names should be 
meaningful. 


3. Explaining the coding. 


4. Telling the operator how to run the program, what to do if the computer stops 
because of an error, and what to do when the job is completed. 


All documentation cannot be done at the time you write specifications. However, when 
writing your specifications, you can also write an explanation of a line of coding on the 
specifications forms. You have probably noticed columns labeled comments on the 
specification sheets. Here is where you write an explanation for your coding. 


In addition to using comment columns on the coding sheets, you can use comment lines. 
A comment line is indicated by * in column 7 of the coding sheet: 
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Comment lines can be used anywhere on any specification sheet. There is no limit to 
the number you can use. The RPG II Compiler does not regard comments and comment 
lines as part of the program. This means that it does not translate them into instructions 
for the computer, 
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PREPARE FOR COMPILATION 


After completing your source program, you must prepare it for compilation. 


Specification Sheet Order 
Your specification sheets must be in this order: 
1. Control Card and File Description sheet. 
2. Input sheets. 
3. Calculation sheets. 
4. Output-Format sheets. 


Number the sheets in columns 1 and 2. At this time, you might also check to see that 
the top part of each sheet is completely filled in. 


If you are planning to give these specifications to someone to keypunch, it is a good 
idea to fill in the box labeled punching instructions: 


International Business Machines Corporation 


RPG CONTROL CARD AND FILE DESCRIPTION SPECIFICATIONS 


reas [ome | 11 TT 
pe oe 






You indicate in this box the graphic symbols you are using and their meaning. Some 
printed letters and numbers are easily confused. For example, it is sometimes difficult 
to differentiate between the number 0 and the letter O and the number 2 and the letter 
Z. You may, therefore, devise a graphic symbol that you use for certain letters. Some 
people use Q for zero, Z for the letter Z. Explain your symbols so that the keypunch 
operator will know what to punch when she finds the symbol on the coding sheets. 


118 


Control Card Preparation 


Some systems require control card specifications. If yours does, you will have to fill 
out the control card line at the top of the Control Card and File Description sheet. 


Control card specifications give the compiler information about the system and tell 
whether any special RPG II functions are used in the program. The most used entries 


are: 
Amount of storage Size of print line 
available in computer - (96, 120, 132) on 
used for compiling: printer being used 
008, 016, 032 
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Amount of storage 
available in computer 
used for execution: 
008, 016, 032 


Checking Specifications 
Desk checking is a good way to reduce the number of would-be program errors. By 
desk checking we mean carefully checking through your specifications to see whether 
you have: 
@ Placed entries in appropriate columns. 
@ Used correct entries in columns. 
@ Spelled field and file names consistently throughout your program. 
© Used your indicators correctly. 
if you should find that you have omitted a specification (forgot to name an input field 


or an output field or forgot to enter a calculation), you can enter it on a line following 
line 15. 
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If your specification cards are being keypunched, the out-of-order cards must be 
inserted in the appropriate place. If the source program is being entered directly into 
the system through a keyboard, the missing specifications will have to be inserted in 
the appropriate place when the specifications are keyed. 
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COMPILE THE SOURCE PROGRAM 


When you think your source program is free of errors, it can be keypunched (if your 
system requires a card source deck) or entered directly into the system (if you have a 
direct entry system). You can then compile your source program. The important part 

of compilation is, of course, translating the source program in machine language. But 

in addition to this, the compiler also produces a program listing you will find very helpful. 


The most important parts of the program listing are: 


A printout of source specifications including comment lines. Notice 
the number at the left of each line. This is the sequence number the 
compiler assigns to the specification. 


Diagnostic messages indicating the types of errors made and the 
_ statement in which they occur. . 


A list of all fields used in the program. Included in the list is the 
storage location assigned to each field and a description of each 
field as indicated in your specifications. Some compilers also 
provide this information for constants used in the program. 





(D) A list of all indicators used in the program. 


* Note that the sample listing shown is the program listing for the 


invoice job. 
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FNAMALO 


Ip 


FINVOICE O 


INAMADD 


_ 


pm pee pep het dt feet dp 


STMT 
NOe 


*0017*% 


ERROR StVERITY 
NOTE 


RG 221 W 


ANCRESS 


1sT 
LR 
La 
ov 


O11 


9E MFCUL 
120 PRINTER 
10 1 CN 
2 60ACCNO L1 
7 26 NAME 
27 49 ADDR1L 
50 72 ADDR2 
73 95 ADDR3 
96 960SHPCD 


2 6OACCNO LI 
9 1401TEMNO 
15 29 OESCRP 
30 340QTY 
392UPRICE 


“SHIPPING INSTRUCTIONS® 
*BY AIR® 
*BY TRUCK® 
"BY RAIL® 
° 


DIAGNOSTICS 


RESULT FIELD LENGTH MAY NOT BE LARGE ENOUGH. 


2Nn 
Li 
Lg 


TABLES AND FIELOS 


NAME OECIMAL. LENGTH TYPE 


POSITIONS IN BYTES 


ALPHAMERTC 
ALPHAMERIC 
ALPHAMERIC 
ALPHAMERIC 
ALPHAMERIC 


NAME 019 
ADMRI 024 
ANDR2 023 
ADDR ' 023 
DESCRP 015 
ACCNO 005 NUMERIC 
SHPCN O01 NUMERIC 

e@ e . 

e e 

e e 

e e 
*UNIT PRICE* CONSTANT 
*AMOUNT® CONSTANT 
*INVOICE TOTAL* CONSTANT 
. ot EDIT CCDE 
e 2. Oe EDIT CCDE 


ADDRESS OF ASSIGNED INDICATOR 


32RD 4TH STH €TH 7TH &TH 
L2 L232 L4&4 LS to LL? 
10 20 1P 
99 $8 S7 


INVOCE 


INVOCE 
INVOCE 
INVOCE 
INVGCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 


INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
INVOCE 
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If the compiler finds any errors in your source specifications, it will print diagnostic 
messages telling you what errors were made. You will find that different types of messages 
are printed: warning, terminal, or informative. A warning message is an indication that 
something may be wrong. If you check the questioned specification and find that is 

is all right for your program, you need not make changes. If you get a terminal message, 
however, something is wrong with your coding. You must fix the specification and 
recompile the program before the compiler will actually translate your specifications: 


The diagnostic message section of the program listing contains two basic parts: a list of 
messages (A) and an explanation of each message . 





DIAGNOSTICS 
ERRGR STMT e 
NG» NO » 
RG 221 *0017* 
ERROR SEVERITY TEXT 
NOTE zo Q 
RG 221 W RESULT FIELD LENGTH MAY NOT BE LARGE ENOUGH. 


Each error message in the list is identified by a 3-digit number di) . Next to the message 
number is either a statement number identifying the specification in which the error appears 
or a field name or constant associated with the error @) . Following the list of messages is 
an explanation of the error GQ) and an indication of the severity of the error (W = warning; 
T = terminal) @) : 


The sample shown above shows diagnostic messages printed for the invoice job. Note that 
the message is a warning. A warning is an indication that something may be wrong. If you 
check the specification noted and find that it will work for the job, you need not change it. 


Checking the message in the listing, you would find that the warning points to the AMOUNT 
field in statement 0017: 


0017 0302 C¢ 20. QTY MULT UPRICE AMOUNT 92 


The AMOUNT field is specified as nine characters with two decimal positions. According 
to the field lengths given to QTY (5 positions) and UPRICE (5 positions), the two fields 
involved in the multiplication, you could possibly get a 10-digit result. 


999.99 
X 99999 
899991 
899991 
899991 
899991 
899991 
99998000.01 


If you feel that QTY and UPRICE will never contain the maximum amounts, you could leave 
the specification as is. 


125 


TEST THE PROGRAM 


It is good practice to test your program before using it for an actual job. To do this, 
make up test data representing all possible situations that could arise during an actual 
job. Run your program using that data to see if your program will really handle the 
situations you think it does. If you get the wrong results when testing, you know your 
program isn’t doing what you thought it would. You can usually find your errors by 
using actual input data and doing the operations specified yourself, step-by-step, in the 
order the computer would do them. When doing this, you'll have to follow closely 
your specifications and the program cycle operations taken by your program. After 
you’ve tested your program and the results show it can handle all situations, your job 
is complete. 
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Address: A number identifying a location in storage. 


Alphabetic: In general usage, any combination of the letters A-Z. In RPG II programming, 
any combination of the letters A-Z and special characters @, #, and $. 


Alphameric: Any combination of alphabetic, numeric, and special characters as defined 
by the RPG II language. 


AND relationship: The specifying of conditioning indicators such that the operation 
conditioned will be performed only when all conditions are met. 


Arithmetic/logic unit: An area inside the processing unit where calculations are performed. 


Arithmetic operation: An operation such as addition, subtraction, multiplication, and 
' division performed in the processing unit. 


Ascending order: The arrangement of data in a specified field from low to high. : 


Blank after: Changing the contents of a field so that it contains only zeros or blanks after 
that field has been printed or punched. 


Calculation specification sheet: An RPG II coding sheet which specifies the type and order 
of calculations to be performed on the input data. 


Card: In data processing, a card containing combinations of holes representing data toa 
computer. 


Eighty-column card: A punch card with 80 vertical columns representing 80 characters. 
Ninety-six column card: A punch card with 96 vertical columns representing 96 
characters. The columns are divided horizontally into thirds, such that the columns 
in the upper third are numbered 1-32, in the middle third, 33-64, and in the lower 
third, 65-96. 

Card file: A group of related punched-card records. 

Card layout form: A chart for planning the design and format of cards, 


Card punch: A device that records information on a card in the form of combinations of holes 
representing characters. . 


Card reader: A device that electronically senses information on punched cards and transfers 
that information to the processing unit. 


Character: Any individual data item that can be represented in printed form; that is, a letter, 
a digit, or a special character. 


Coding: Making entries on RPG II specification sheets. 
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Comments: Words or statements in a program that serve as documentation rather than as 


instructions to the compiler. 


Compile: Translate a source program (such as RPG II specifications) into an object program 
(machine language program) using the computer. 


Compiler: A program that translates a source program into a machine language program. 


Computer: A device or group of devices capable of accepting, processing, and reporting 
information. 


Conditioning: Using indicators to control when calculations or output operations are done. 


Constant: A data item that does not change during execution of a program. This item 
represents itself and is actually used in processing rather than being a field name 
representing the data. For example, COST is a name representing a field containing 
data which changes, whereas the constant 100 is actual data used which does not change. 


Control break: A change in the contents of a control field. 
Control card and file description specification sheet: An RPG II coding sheet which gives, for 
a particular job, information needed for control of the computer and a description of 


the files used. 


Control field: One or more fields that are compared from record to record to determine when 
certain operations should be performed. 


. Control group: A set of records all having the same control field information. 


Control level indicator: An indicator used to specify certain fields as control fields and to tell 
which operations to perform at total time. 


Control unit: An area inside the processing unit that determines from instructions what has to 
be done. It directs other units or devices to perform the required functions. 


Data: A collection of facts, numbers, letters, and symbols that can be processed or produced 
by a computer. 


Descending order: The arrangement of data in a specified field from high to low. 


Detail record: An output record produced during the detail output operation of the RPG II 
program cycle. 


Detail time: An operation in the RPG II program cycle in which calculation and output 
operations are performed for each record read. 


‘Diagnostic message: An output message that identifies RPG II specification errors and their 


severity. 
Digit: One of the characters 0-9. 


Disk: A thin, round metal plate coated with magnetic material on which information can be 
recorded (both sides) in the form of magnetized spots. 


Disk drive: A device that reads data from or writes data on a disk. 
Documentation: A written explanation of a program, its use, its function, and its operations. 


Edit: To punctuate a field by suppressing zeros and inserting commas, decimal points, dollar 
signs, or other constant information. 


Edit Code: A number or letter indicating that editing should be done according to a predefined 
pattern. This includes zero suppression and punctuation. 


Eighty-column card: A punch card with 80 vertical columns representing 80 characters. 
Error message: (See diagnostic message.) 


Execute: To process input data files according to machine language instructions to produce 
the desired output. 


Factor: In RPG II programming, a field name or constant used in a calculation operation. 
Field: One or more adjacent record positions which contain related information. 


Control field: One or more fields that are compared from record to record to determine 
when certain operations should be performed. . 


Result field: The name of a field where the outcome of arithmetic calculations is kept. 


Field indicator: An indicator used to determine if a given field on an input record is plus, 
minus, zero, or blank. . 


Field length: The number of columns allowed for a given field, determined by the maximum 
length of information that will be entered in the field. 


Field name: In RPG II programming, a combination of six or fewer alphabetic or numeric 
characters (the first of which must be alphabetic) which identifies a field. 


File: An organized collection of related records. 
Card file: A group of related records stored on cards. 
Disk file: A group of related records stored on disk. 
Input file: A set of records a program uses as a source of data. 
Output file: A set of records that is written, punched, or printed by the computer. 
Primary file: The main file from which a program first reads records. In multifile 
processing, it is used for determining the order in which records are selected for 
processing. 


Secondary file: Any file other than the primary file used in multifile processing. 


File name: In RPG II programming, a combination of eight or fewer alphabetic or numeric 
characters (the first of which must be alphabetic) which identifies a file. 
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First page indicator: An indicator used to specify which lines (such as headings) should be 
printed on the first page only. 


Half adjust: A method of rounding off a number by adjusting the last digit to be kept. When 
the number to the right of the last numeral to be retained is 5 or greater, 1 is added to 


the last retained digit. For example, 2.475 half adjusted to two decimal places becomes 
~ 2.48, but 2.474 becomes 2.47. 


Heading: A constant, usually printed at the top of a page, identifying the information or report 
on that page. 


Indicator: 


1. A 2-digit or 2-character entry on the specification sheets used to tell when certain 
‘operations are to be performed. 


2. An internal switch used by the object program to remember when a certain 
event occurs and what to do when the event does occur. 


Control level indicator: An indicator used to specify certain fields as control fields and 
to tell which operations to perform at total time when data in the control field changes. 


Field indicator: An indicator used to determine if a given field on an input record is 
plus, minus, zero, or blank. 


First page indicator: An indicator used to specify which lines (such as headings) should 
be printed on the first page only. . 


Last record indicator: An indicator that signifies when the last data record has been 
processed. 


Overflow indicator: An indicator that signifies when the last line to be printed on a page 
has been passed. It may be used to specify which lines are to be printed on the next 


page. 


Record identifying indicator: An indicator that signifies the type of record to be 
processed next. 


Resulting indicator: An indicator that signifies (1) if the result of a given calculation is 
plus, minus, or zero, or (2) .if a given field is greater than, less than, or equal to another 
field. 


Input: Information to be transferred from cards, disk, or keyboard to storage. 


Input specification sheet: A coding sheet used to identify the different types of records in 
each input file and to describe the fields in each record. 


Instruction: A statement that specifies an operation to be performed by the computer and the 
locations in storage of all data involved in that operation. 


Keyboard: A device, similar to a typewriter, used for entering data directly into storage. 


Keypunch: A device, similar to a typewriter, used for punching information into cards. 


Last record indicator: An indicator that signifies when the last data record has been processed. 
Machine language: A language that can be interpreted and used by a computer. 


Master record: A record whose information rarely changes (such as a name and address 
record). 


Ninety-six column card: A punch card with 96 vertical columns representing 96 characters. 


The columns are divided horizontally into thirds, such that the columns in the upper 
third are numbered 1-32, in the middle third, 33-64, and in the lower third, 65-96. 


Numeric: Any combination of the characters 0-9, 


Object program: A set of instructions in machine language. The object program is produced 
by the compiler from the source program. 


Operation: A defined action performed on one or more data items (for example, adding, 
multiplying, comparing, or moving information). 


Operation code: A word or abbreviation, specified on the Calculation sheet, that is used to 
identify an operation (for example, SUB for subtract, ADD for add). 


OR relationship: The specifying of conditioning indicators such that the operation conditioned 
is done when either one or both of the conditions are met. 


Output: Data transferred from storage into punched cards, printed form, or disk. 


Output-format specification sheet: A coding sheet used to specify the records to be written 
in each output file and the format of output records. 


Overflow: The condition that occurs when the last line to be printed on the page has been 
passed. 


Overflow indicator: An indicator that signifies when the last line on a page has been printed 
or passed. It may be used to specify which lines are to be printed on the next page. 


Overflow line: The line specified as the last line to be printed on a page. 

Overflow page: The new page which is advanced when overflow occurs. 

Primary file: The file that controls the order in which records are selected for processing. 
Printer: A device that records information on paper in the form of printed characters. 
Printer spacing chart: A form used to plan the locations of data in the output file. 
Processing: To perform operations on data from an input record. 

Processing unit: The part of a computer that controls the computer and its attached devices, 


provides storage area for the programs and data, and performs the operations specified 
in the program. 
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Program: A set of instructions that (when stored) tells the computer which operations are to 
be done and how to do them. 


Object program: A set of instructions in machine language. The object program is 
produced by the compiler from the source program. 


Source program: A set of instructions that represents a particular job as defined by the 
programmer. These instructions are written in a programming language, such as RPG II. 


Program cycle: A series of operations performed by the computer for each record read. 

Program listing: A computer printout which gives information about the source program, 
such as source statements, diagnostic messages, indicators used, storage addresses of 
fields, and constants used. 


Punch card: (See card.) 


Record: A group of related fields or data items treated as a unit; for example, a punched 
card. 


Record identification code: A code placed in a record to identify that record type. 


Record identifying indicator: An indicator that signifies the type of record to be processed 
next. 


Record length: The number of characters needed to include all the data for one record. . 
Record types: Records from one file which have different fields and/or format. 


Source program: A set of instructions representing a particular job as defined by the 
programmer. These instructions are written in a programming language, such as RPG II. 


Special character: A character other than a digit or letter (for example, *, +, ¢,%). In 
RPG II programming, @, #, and $ are considered alphabetic characters. 


Specification sheets: Forms on which an RPG II program is coded and described. The 
four specification sheets described in this manual are the Control Card and File 
Description sheet, the Input sheet, the Calculation sheet, and the Output-Format 
sheet. 


Storage unit: An area inside the processing unit where instructions and data are stored. 


Total operations: Operations performed only after a group of records has been processed. 


Total time: That part of the RPG II program cycle in which operations specified for a 
group of records are done. 


Zero suppression: The elimination of leading zeros in a number. For example, 00057, when 
zero suppressed, becomes 44457 ( represents one blank space). 
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